From e133e969387753b587cce49d50235d765ffbe15d Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 14 Aug 2004 04:09:29 +0000
Subject: [PATCH] .

original commit: 940d4252e074190664a111c5018363818aef24f4
---
 collects/mzlib/port.ss | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/collects/mzlib/port.ss b/collects/mzlib/port.ss
index 7bcacf9..565fe1f 100644
--- a/collects/mzlib/port.ss
+++ b/collects/mzlib/port.ss
@@ -287,7 +287,9 @@
 	 (let ([fast-peek-k (lambda (s skip)
 			      (peek-it s skip #f))])
 	   (lambda (s skip unless-evt)
-	     (if unless-evt
+	     (if (or unless-evt
+		     (char-ready? peeked-r)
+		     (pair? special-peeked))
 		 (peek-it s skip unless-evt)
 		 (fast-peek s skip fast-peek-k))))
 	 peek-it)