diff --git a/collects/framework/private/frame.ss b/collects/framework/private/frame.ss
index 8576b4da..431af2fe 100644
--- a/collects/framework/private/frame.ss
+++ b/collects/framework/private/frame.ss
@@ -2080,14 +2080,14 @@
       (when search-gui-built?
         (send super-root change-children
               (λ (l)
-                (remove search/replace-panel l))))
-      (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))))
+                (remove search/replace-panel l)))
+        (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)))))
       (set! hidden? #t))
     
     (define/public (unhide-search focus?)
diff --git a/collects/framework/private/text.ss b/collects/framework/private/text.ss
index 0e56bf51..c1fc7691 100644
--- a/collects/framework/private/text.ss
+++ b/collects/framework/private/text.ss
@@ -944,8 +944,10 @@ WARNING: printf is rebound in the body of the unit to always
 
 (define delegate-mixin
   (mixin (basic<%>) (delegate<%>) 
-    (inherit split-snip find-snip get-snip-position
-             find-first-snip get-style-list set-tabs)
+    (inherit split-snip find-snip 
+             get-snip-position
+             find-first-snip 
+             get-style-list set-tabs)
     
     (define linked-snips #f)