diff --git a/collects/compiler/embed-unit.rkt b/collects/compiler/embed-unit.rkt
index 12f93d1b0a..167848e9a5 100644
--- a/collects/compiler/embed-unit.rkt
+++ b/collects/compiler/embed-unit.rkt
@@ -710,7 +710,9 @@
                                                                                   (let-values ([(s) (cadr name)])
                                                                                     (let-values ([(parts) (split s #rx"/" +inf.0)])
                                                                                       (if (= 1 (length parts))
-                                                                                          name
+                                                                                          (list* 'planet
+                                                                                                 (ss->rkt (cadr name))
+                                                                                                 (cddr name))
                                                                                           (list* 'planet
                                                                                                  (ss->rkt (last-of parts))
                                                                                                  (caddr name)
diff --git a/collects/tests/racket/embed.rktl b/collects/tests/racket/embed.rktl
index 16a4e71a87..457f2ea6b4 100644
--- a/collects/tests/racket/embed.rktl
+++ b/collects/tests/racket/embed.rktl
@@ -461,6 +461,7 @@
     (go '(planet racket-tester/p1/other) "two\nother\n")
     (go '(planet "private/sub.rkt" ("racket-tester" "p2.plt" 2 0)) "two\nsub\n")
     (go '(planet "private/sub.ss" ("racket-tester" "p2.plt" 2 0)) "two\nsub\n")
+    (go '(planet "main.ss" ("racket-tester" "p2.plt" 2 0)) "two\n")
 
     (void))
   
@@ -469,11 +470,11 @@
 
 ;; ----------------------------------------
 
-;(try-basic)
-;(try-mzc)
-;(try-extension)
-;(try-gracket)
-;(try-reader)
+(try-basic)
+(try-mzc)
+(try-extension)
+(try-gracket)
+(try-reader)
 (try-planet)
 
 ;; ----------------------------------------