diff --git a/collects/mred/keys.ss b/collects/mred/keys.ss
index 4b6e4e68..cec09cc6 100644
--- a/collects/mred/keys.ss
+++ b/collects/mred/keys.ss
@@ -150,7 +150,8 @@
 		  (mred:find-string:find-string canvas ()
 						 (- (unbox x-box) 30)
 						 (- (unbox y-box) 30)
-						 (cons 'ignore-case extras))))]
+						 (cons 'ignore-case extras))
+		  #t))]
 	     [find-string-reverse
 	      (lambda (edit event)
 		(find-string edit event 'reverse))]