diff --git a/collects/tests/mred/draw.ss b/collects/tests/mred/draw.ss
index 7668ee1a..79bc2169 100644
--- a/collects/tests/mred/draw.ss
+++ b/collects/tests/mred/draw.ss
@@ -622,7 +622,7 @@
 				(error 'draw-test "shouldn't have been a clipping region"))
 			      (let*-values ([(x y w h) (send r get-bounding-box)]
 					    [(l) (list x y w h)])
-				(unless (equal? l
+				(unless (andmap = l
 						(case clip
 						  [(rect) '(100. -25. 10. 400.)]
 						  [(poly circle poly-rect) '(0. 60. 180. 180.)]
diff --git a/notes/mred/MrEd_100.txt b/notes/mred/MrEd_100.txt
index 96127d0c..b3149c82 100644
--- a/notes/mred/MrEd_100.txt
+++ b/notes/mred/MrEd_100.txt
@@ -631,7 +631,7 @@ begin-busy-cursor end-busy-cursor is-busy-cursor?
 bell
 label->plain-label
 get-resource write-resource
-yield flush-display
+yield sleep/yield flush-display
 get-face-list - formerly wx:get-font-list
 
 find-graphical-system-path - formerly wx:find-path