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)