diff --git a/scsh/network.scm b/scsh/network.scm
index a44ed21..e0ee366 100644
--- a/scsh/network.scm
+++ b/scsh/network.scm
@@ -24,7 +24,7 @@
 					   (service-info (cadr args) "tcp")))
 					 (else
 					  (error
-					   "socket-connect: bad arg ~s"
+					   "socket-connect: bad port arg ~s"
 					   args)))))
 			(internet-address->socket-address host port)))
 		     ((= protocol-family