From 8c7e8b52949d006c72b23495d43a204a531b0fc6 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 9 Jul 2003 22:28:18 +0000
Subject: [PATCH] Fix typo in last change.

---
 v7/src/runtime/socket.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/socket.scm b/v7/src/runtime/socket.scm
index 9db1ac97f..cc192e62a 100644
--- 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
-- 
2.25.1