diff --git a/collects/mred/keys.ss b/collects/mred/keys.ss
index 046a0c1a..08acc500 100644
--- a/collects/mred/keys.ss
+++ b/collects/mred/keys.ss
@@ -53,10 +53,9 @@
     (define setup-global-search-keymap
       (let* ([find-string
 	      (lambda (edit event . extras)
-		(let ([x-box (box 0)]
-		      [y-box (box 0)]
+		(let ([x-box (box (send event get-x))]
+		      [y-box (box (send event get-y))]
 		      [canvas (send event get-event-object)])
-		  (send event position x-box y-box)
 		  (send canvas client-to-screen x-box y-box)
 		  (mred:find-string:find-string canvas ()
 						(- (unbox x-box) 30)