diff --git a/collects/drracket/private/multi-file-search.rkt b/collects/drracket/private/multi-file-search.rkt index 168031eb33..5e5b1832a7 100644 --- a/collects/drracket/private/multi-file-search.rkt +++ b/collects/drracket/private/multi-file-search.rkt @@ -528,6 +528,8 @@ (set-method (preferences:get 'drracket:multi-file-search:search-type)) (send search-text-field focus) + (let ([t (send search-text-field get-editor)]) + (send t set-position 0 (send t last-position))) (send dialog show #t) (and