From c08f5fadb9254e582c09917aa83a2cfa3c109bd6 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Tue, 11 May 2004 13:13:10 +0000
Subject: [PATCH] .

original commit: 0fd01393ee41c65cff6c96a97ea5248b04236e0a
---
 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 99b50e34..bbcb1925 100644
--- a/collects/mred/mred.ss
+++ b/collects/mred/mred.ss
@@ -7617,7 +7617,7 @@
 				      (let ([v (read-chars s)])
 					(semaphore-post lock-semaphore)
 					v)
-				      (wrap-evt
+				      (convert-evt
 				       (semaphore-peek-evt lock-semaphore)
 				       (lambda (x) 0)))))
 			    (lambda (s skip general-peek)