From 435589ff44c3f0883d90e43bf876620b9dfac7cf Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 7 Apr 2013 09:37:18 -0600
Subject: [PATCH] fix a non-deterministic test (cherry picked from commit
 bc5c89cbf076841f12a2a8ca9de112e8a1ac8aba)

---
 collects/tests/racket/portlib.rktl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/collects/tests/racket/portlib.rktl b/collects/tests/racket/portlib.rktl
index 8b4bf304cb..4898dd09c2 100644
--- a/collects/tests/racket/portlib.rktl
+++ b/collects/tests/racket/portlib.rktl
@@ -1021,9 +1021,11 @@
        (set! res (sync (read-bytes-evt 2 i))))))
   
   (write-bytes #"1" o)
-  (sleep 0.1)
+  (sync (system-idle-evt))
+  (thread-suspend t)
   (write-bytes #"2" o)
   (test #"1" read-bytes 1 i)
+  (thread-resume t)
   (sleep)
   (write-bytes #"34" o)