Fix typo in last change.

diff --git a/v7/src/runtime/socket.scm b/v7/src/runtime/socket.scm
index 9db1ac97f2268cc51f23ba032889b485bcaabf7d..cc192e62a6314ee887142ddecedb3916d3990c78 100644 (file)
--- a/v7/src/runtime/socket.scm
+++ b/v7/src/runtime/socket.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: socket.scm,v 1.23 2003/07/09 04:26:50 cph Exp $
+$Id: socket.scm,v 1.24 2003/07/09 22:28:18 cph Exp $
 
 Copyright 1996,1997,1998,1999,2001,2002 Massachusetts Institute of Technology
 Copyright 2003 Massachusetts Institute of Technology
@@ -71,7 +71,8 @@ USA.
                            (if (or (default-object? host) (not host))
                                ((ucode-primitive host-address-any 0))
                                host))
-    (listen-tcp-server-socket server-socket)))
+    (listen-tcp-server-socket server-socket)
+    server-socket))
 
 (define (create-tcp-server-socket)
   (open-channel