diff --git a/collects/mzlib/private/port.ss b/collects/mzlib/private/port.ss
index 027b58d250..56bf26f2b8 100644
--- a/collects/mzlib/private/port.ss
+++ b/collects/mzlib/private/port.ss
@@ -60,7 +60,7 @@
 			   write-bytes-avail))
 		   s p start end)])
 	   (if (and (zero? v) (not (= start end)))
-	       (wrap-evt p (lambda (x) 0))
+	       (wrap-evt p (lambda (x) #f))
 	       v)))
        (lambda ()
 	 (when close?