diff --git a/scsh/network.scm b/scsh/network.scm
index 97a31fe..83a5168 100644
--- a/scsh/network.scm
+++ b/scsh/network.scm
@@ -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)