From 50fc864690f5f33645485ac126e4bcb93d18c80d Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 26 May 2004 16:25:16 +0000
Subject: [PATCH] .

original commit: 7db54198dfcc9d864f223b98412ef8b65e63c126
---
 collects/mred/mred.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/mred/mred.ss b/collects/mred/mred.ss
index 1215ea14..9d234a4e 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -7610,7 +7610,7 @@
 				      (let ([v (read-chars s)])
 					(semaphore-post lock-semaphore)
 					v)
-				      (convert-evt
+				      (wrap-evt
 				       (semaphore-peek-evt lock-semaphore)
 				       (lambda (x) 0)))))
 			    (lambda (s skip general-peek)