diff --git a/collects/tests/racket/module.rktl b/collects/tests/racket/module.rktl
index feb9b2f2b4..f17c36a7bd 100644
--- a/collects/tests/racket/module.rktl
+++ b/collects/tests/racket/module.rktl
@@ -518,6 +518,14 @@
   (print (module->namespace ''n) s)
   (test #t regexp-match? #rx"<namespace:'" (get-output-string s)))
 
+;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Check "source" name of built-in module:
+
+(parameterize ([current-namespace (module->namespace ''#%network)])
+  (test '#%network 
+        variable-reference->module-source
+        (eval (datum->syntax #'here '(#%variable-reference)))))
+
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (report-errs)
diff --git a/src/racket/src/module.c b/src/racket/src/module.c
index c3a345e11c..a47702b8f2 100644
--- a/src/racket/src/module.c
+++ b/src/racket/src/module.c
@@ -4766,6 +4766,8 @@ Scheme_Env *scheme_primitive_module(Scheme_Object *name, Scheme_Env *for_env)
       src = prefix;
     else
       src = scheme_intern_resolved_module_path(src);
+    if (SCHEME_FALSEP(src))
+      src = name;
     insp = scheme_get_param(config, MZCONFIG_CODE_INSPECTOR);
   }
   else {