diff --git a/collects/meta/build/bundle b/collects/meta/build/bundle
index 79c6f3cbf3..c7e080a1ea 100755
--- a/collects/meta/build/bundle
+++ b/collects/meta/build/bundle
@@ -227,7 +227,7 @@
                 (error 'binaries "no binaries found for ~s" platform)))
             *platforms* *platform-tree-lists*)
   ;; Get the racket tree, remove junk and binary stuff
-  (set-racket-tree! racket-base/ racket/-name *platform-tree-lists*)
+  (set-racket-tree! racket/ racket-base/ racket/-name *platform-tree-lists*)
   (set-bin-files-delayed-lists!
    (delay (map (lambda (trees)
                  (sort* (mappend tree-flatten (add-trees trees))))
diff --git a/collects/meta/check-dists.rkt b/collects/meta/check-dists.rkt
index 600bdb1ba1..4726d845b7 100644
--- a/collects/meta/check-dists.rkt
+++ b/collects/meta/check-dists.rkt
@@ -22,7 +22,7 @@
   (register-spec! 'verify! verify!)
   (register-spec! 'distribute! void)
 
-  (set-racket-tree! racket-base/ racket/-name null)
+  (set-racket-tree! racket/ racket-base/ racket/-name null)
 
   (set-bin-files-delayed-lists!
    ;; FIXME: hard-wired list of binary-specific files
diff --git a/collects/meta/checker.rkt b/collects/meta/checker.rkt
index 8a5acc53d5..9d17a223f8 100644
--- a/collects/meta/checker.rkt
+++ b/collects/meta/checker.rkt
@@ -3,7 +3,8 @@
 
 #lang scheme/base
 
-(require scheme/cmdline scheme/runtime-path scheme/match scheme/promise
+(require scheme/cmdline scheme/runtime-path scheme/match scheme/promise 
+         scheme/list ; for use in specs too
          (for-syntax scheme/base) ; for runtime-path
          (except-in scheme/mpair mappend)
          (only-in (lib "process.ss") system)
@@ -560,8 +561,10 @@
 (provide checker-namespace-anchor)
 (define-namespace-anchor checker-namespace-anchor)
 
+(define racket/ #f)
 (provide set-racket-tree!)
-(define (set-racket-tree! racket-base/ racket/-name tree-lists)
+(define (set-racket-tree! racket/* racket-base/ racket/-name tree-lists)
+  (set! racket/ racket/*)
   (set! *platform-tree-lists* tree-lists)
   (dprintf "Scanning main tree...")
   (set! *racket-tree*