From e8b6f92428ec8fb9bac91b668ebb62d9102a6719 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 19 Mar 2005 00:47:38 +0000
Subject: [PATCH] .

original commit: d8d0c61d9aa977137f5d0a800936552d26f4d7f5
---
 collects/mzlib/port.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mzlib/port.ss b/collects/mzlib/port.ss
index ec15e55..45add87 100644
--- a/collects/mzlib/port.ss
+++ b/collects/mzlib/port.ss
@@ -724,7 +724,7 @@
 		 (cond
 		  [(eq? n 0) 
 		   ;; Not ready, yet.
-		   (car ports)]
+		   (wrap-evt (car ports) (lambda (x) 0))]
 		  [(eof-object? n)
 		   ;; Port is exhausted, or we skipped past its input.
 		   ;; If skip is not zero, we need to figure out