diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss
index 23205e9feb..98025a2352 100644
--- a/collects/framework/private/frame.ss
+++ b/collects/framework/private/frame.ss
@@ -2084,6 +2084,7 @@
       (clear-search-highlight)
       (send find-edit text-to-search-changed text-to-search #f)
       (when text-to-search
+        (send text-to-search set-search-anchor #f)
         (let ([canvas (send text-to-search get-canvas)])
           (when canvas
             (send canvas focus))))