diff --git a/collects/drscheme/private/module-language.ss b/collects/drscheme/private/module-language.ss
index ff58c364f1..458c9c7f03 100644
--- a/collects/drscheme/private/module-language.ss
+++ b/collects/drscheme/private/module-language.ss
@@ -115,8 +115,9 @@
           
           (define/override (get-style-delta) module-language-style-delta)
           
+          (inherit get-reader)
           (define/override (front-end/complete-program port settings teachpack-cache)
-            (let* ([super-thunk (super front-end/complete-program port settings teachpack-cache)]
+            (let* ([super-thunk (λ () ((get-reader) (object-name port) port))]
                    [filename (get-filename port)]
                    [module-name #f]
                    [module-name-prefix (get-module-name-prefix filename)]