From d2136deb77632825c0bf75eaf490f62feec85c9e Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 27 Mar 2005 19:39:52 +0000
Subject: [PATCH] .

original commit: f829f531bbdf4146bb69d4a5f6a28472b4e9eacd
---
 collects/mzlib/process.ss | 2 +-
 collects/mzlib/thread.ss  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/mzlib/process.ss b/collects/mzlib/process.ss
index c2ef3b2..44de233 100644
--- a/collects/mzlib/process.ss
+++ b/collects/mzlib/process.ss
@@ -107,7 +107,7 @@
 					    (when (thread? t)
 					      (thread-wait t)))])
 			       (twait so)
-			       (twait si)
+			       ;; (twait si) - if the process didn't wait, we don't need to!
 			       (twait se)))
 			    ((interrupt) (subprocess-kill subp #f))
 			    ((kill) (subprocess-kill subp #t))
diff --git a/collects/mzlib/thread.ss b/collects/mzlib/thread.ss
index b9bf279..ae4b9fe 100644
--- a/collects/mzlib/thread.ss
+++ b/collects/mzlib/thread.ss
@@ -69,7 +69,7 @@
 		 [tcp-close tcp-close]
 		 [tcp-accept tcp-accept]
 		 [tcp-accept/enable-break tcp-accept/enable-break])
-      (let ([l (tcp-listen port-number)]
+      (let ([l (tcp-listen port-number 5 #t)]
 	    [can-break? (break-enabled)])
 	(dynamic-wind
 	    void