diff --git a/Error-log b/Error-log
index 4603a52..dcd7ea9 100644
--- a/Error-log
+++ b/Error-log
@@ -42,3 +42,6 @@ Reported by Kevin Esler 2 April 96. Fixed by bdc 26 Sept 96.
 
 support for Solaris 2 on i386 in configure.in
 Reported by Lutz Euler on 11 Jul 96. Fixed by bdc 26 Sept 96.
+
+socket-address->unix-address returns function not address
+Reported by Sean Doran 29 Jul 96. Fixed by bdc 26 Sept 96.
diff --git a/scsh/network.scm b/scsh/network.scm
index e0ed90e..f62150b 100644
--- a/scsh/network.scm
+++ b/scsh/network.scm
@@ -131,7 +131,7 @@
 	  (not (= (socket-address:family sockaddr) 
 		  address-family/unix)))
       (error "socket-address->unix-address expects an unix socket ~s" sockaddr)
-      socket-address:address))
+      (socket-address:address sockaddr)))
 
 (define (make-addr af)
   (make-string (cond ((= af address-family/unix) 108)