.

original commit: 2c3e624ea3927fdf36ce0640e7addfcff1f080fa

collects/framework/private/frame.ss

@@ -2147,10 +2147,15 @@
             (λ ()
               (set-searching-frame this)
               (unhide-search)
+              (cond
+                [(preferences:get 'framework:search-using-dialog?)
+                 (search-again 'backward)
+                 (set-searching-direction 'forward)]
+                [else
 		 (if (or (send find-canvas has-focus?)
                          (send replace-canvas has-focus?))
                      (search-again 'backward)
-                  (send find-canvas focus))))
+                     (send find-canvas focus))])))
           (define search-again
             (opt-lambda ([direction searching-direction] [beep? #t])
               (set-searching-frame this)

collects/framework/private/keymap.ss

@@ -1216,7 +1216,7 @@
 		 ;; covered by menu
                  ;(map "d:f" "move-to-search-or-search")
                  
-		 (map "d:r" "move-to-search-or-reverse-search")
+		 (map "c:r" "move-to-search-or-reverse-search")
 		 (map "d:g" "find-string-again")
 		 (map "c:i" "toggle-search-focus")])))))