diff --git a/collects/drracket/private/module-language-tools.rkt b/collects/drracket/private/module-language-tools.rkt
index 7f98f838eb..b925cc3c52 100644
--- a/collects/drracket/private/module-language-tools.rkt
+++ b/collects/drracket/private/module-language-tools.rkt
@@ -68,9 +68,11 @@
       ;; move button panel to the front of the list
       (send (get-button-panel) change-children 
             (λ (l) (cons toolbar-button-panel (remq toolbar-button-panel l))))
-      (let ([defs (get-definitions-text)])
-        (when (send defs get-in-module-language?)
-          (send defs move-to-new-language)))))
+      
+      (define/public (initialize-module-language)
+        (let ([defs (get-definitions-text)])
+          (when (send defs get-in-module-language?)
+            (send defs move-to-new-language))))))
   
   (define definitions-text<%> (interface ()))
   (define definitions-text-mixin
diff --git a/collects/drracket/private/unit.rkt b/collects/drracket/private/unit.rkt
index ae2d421342..20fab825ba 100644
--- a/collects/drracket/private/unit.rkt
+++ b/collects/drracket/private/unit.rkt
@@ -4696,6 +4696,7 @@ module browser threading seems wrong.
             (when pos
               (send frame move (car pos) (cdr pos)))))
         (send frame update-toolbar-visibility)
+        (send frame initialize-module-language)
         (send frame show #t)
         (send (send frame get-interactions-text) initialize-console)
         (set! first-frame? #f)