diff --git a/collects/drscheme/private/module-language.ss b/collects/drscheme/private/module-language.ss
index 9b254e2c1c..5b2ea69a8b 100644
--- a/collects/drscheme/private/module-language.ss
+++ b/collects/drscheme/private/module-language.ss
@@ -250,7 +250,10 @@
         (define path
           (cond [(get-filename port) => (compose simplify-path cleanse-path)]
                 [else #f]))
-        (define resolved-modpath (and path (make-resolved-module-path path)))
+        (define resolved-modpath (and path (module-path-index-resolve
+                                            (module-path-index-join
+                                             path
+                                             #f))))
         (define-values (name lang module-expr)
           (let ([expr
                  ;; just reading the definitions might be a syntax error,