--- scsh/network.scm.old	Wed Feb 13 02:53:03 2002
+++ scsh/network.scm	Wed Feb 13 02:41:28 2002
@@ -204,7 +204,7 @@
 		   "bind-socket: trying to bind incompatible address to socket ~s"
 		   name))
 		 ((and (= family address-family/unix)
-		       (> (string-length name) 107))
+		       (> (string-length (socket-address->unix-address name)) 107))
 		  (error "bind-socket: path too long" name))
 		 (else
 		  (%bind (socket->fdes sock)