diff --git a/collects/scheme/private/old-procs.ss b/collects/scheme/private/old-procs.ss
index b16d1da..941989d 100644
--- a/collects/scheme/private/old-procs.ss
+++ b/collects/scheme/private/old-procs.ss
@@ -6,22 +6,22 @@
              "stxmz-body.ss"
              "define.ss")
 
-  (#%provide make-namespace*
+  (#%provide make-namespace
              free-identifier=?*
              namespace-transformer-require)
 
   (define reflect-var #f)
   
-  (define make-namespace*
+  (define make-namespace
     (case-lambda
-     [() (make-namespace* 'initial)]
+     [() (make-namespace 'initial)]
      [(flag)
       (unless (memq flag '(initial empty))
         (raise-syntax-error 'make-namespace
                             "'initial or 'empty"
                             flag))
-      (let ([new (make-namespace)]
-            [old (variable-reference-namespace (#%variable-reference reflect-var))])
+      (let ([new (make-empty-namespace)]
+            [old (variable-reference->empty-namespace (#%variable-reference reflect-var))])
         (namespace-attach-module old 'mzscheme new)
         (parameterize ([current-namespace new])
           (namespace-require 'mzscheme))
diff --git a/collects/tests/mzscheme/contract-test.ss b/collects/tests/mzscheme/contract-test.ss
index 484a4f2..20d22f3 100644
--- a/collects/tests/mzscheme/contract-test.ss
+++ b/collects/tests/mzscheme/contract-test.ss
@@ -9,7 +9,6 @@
   (define contract-namespace 
     (let ([n (make-base-namespace)])
       (parameterize ([current-namespace n])
-        (namespace-require 'scheme/base)
         (namespace-require '(for-syntax scheme/base))
         (namespace-require '(for-template scheme/base))
         (namespace-require 'scheme/contract)
diff --git a/collects/tests/mzscheme/unit.ss b/collects/tests/mzscheme/unit.ss
index aa47960..d86308d 100644
--- a/collects/tests/mzscheme/unit.ss
+++ b/collects/tests/mzscheme/unit.ss
@@ -599,7 +599,6 @@
 
 (test 55 'namespace
       (parameterize ([current-namespace (make-base-namespace)])
-        (namespace-require 'scheme/base)
 	(namespace-variable-bind/invoke-unit
 	 (x)
 	 (unit 
diff --git a/collects/tests/mzscheme/unitsig.ss b/collects/tests/mzscheme/unitsig.ss
index 711a10e..56917a9 100644
--- a/collects/tests/mzscheme/unitsig.ss
+++ b/collects/tests/mzscheme/unitsig.ss
@@ -608,7 +608,6 @@
 (test 120
       'namespace
       (parameterize ([current-namespace (make-base-namespace)])
-        (namespace-require 'scheme/base)
 	(namespace-variable-bind/invoke-unit/sig
 	 (foo)
 	 (unit/sig (foo)