From 491130284049ac0760a89813c9bb3e8e944ec0a5 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Thu, 5 Sep 1996 21:51:58 +0000
Subject: [PATCH] fixed bugs

original commit: e693ef7e7c60f73658663b795910649573ec2ed6
---
 collects/mred/keys.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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))]