From 3662ea8d8899b9ba93debc31de8e919619349d33 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Wed, 13 Feb 2002 08:28:59 +0000
Subject: [PATCH] Fixed bug in bind-socket.

---
 scsh/network.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)