diff --git a/racket/src/ChezScheme/mats/7.ms b/racket/src/ChezScheme/mats/7.ms
index 00de98f451..b13c940c2c 100644
--- a/racket/src/ChezScheme/mats/7.ms
+++ b/racket/src/ChezScheme/mats/7.ms
@@ -488,7 +488,7 @@
     (separate-eval '(load-program "testfile-mc-foo.so"))
     "(\"a\" \"b\" \"c\")\n")
   (touch "testfile-mc-foo.so" "testfile-mc-a.ss")
-  ((lambda (x ls) (and (member x ls) #t))
+  (equal?
     (let ([mt* (map file-modification-time (list "testfile-mc-a.so" "testfile-mc-b.so" "testfile-mc-foo.so"))])
       (let ([s (separate-compile '(lambda (x) (parameterize ([compile-program-handler (lambda (ifn ofn) (printf "yippee!\n") (compile-program ifn ofn))]
                                                              [compile-imported-libraries #t]
@@ -501,8 +501,7 @@
             (map file-modification-time (list "testfile-mc-a.so" "testfile-mc-b.so" "testfile-mc-foo.so"))
             mt*)
           s)))
-    '(((> > >) . "yippee!\n((testfile-mc-a) (testfile-mc-b))\n")
-      ((> > >) . "yippee!\n((testfile-mc-b) (testfile-mc-a))\n")))
+    '((> > >) . "yippee!\n"))
   (equal?
     (let ([mt* (map file-modification-time (list "testfile-mc-a.so" "testfile-mc-b.so" "testfile-mc-foo.so"))])
       (let ([s (separate-compile '(lambda (x) (parameterize ([compile-imported-libraries #t] [compile-file-message #f]) (maybe-compile-program x))) 'mc-foo)])
@@ -512,7 +511,7 @@
             (map file-modification-time (list "testfile-mc-a.so" "testfile-mc-b.so" "testfile-mc-foo.so"))
             mt*)
           s)))
-    '((= = =) . "#f\n"))
+    '((= = =) . ""))
   (equal?
     (separate-eval '(load-program "testfile-mc-foo.so"))
     "(\"a\" \"b\" \"c\")\n")
diff --git a/racket/src/ChezScheme/s/compile.ss b/racket/src/ChezScheme/s/compile.ss
index 26ffbbace3..fcb73ed563 100644
--- a/racket/src/ChezScheme/s/compile.ss
+++ b/racket/src/ChezScheme/s/compile.ss
@@ -2233,11 +2233,13 @@
       [(in out)
        (unless (string? in) ($oops who "~s is not a string" in))
        (unless (string? out) ($oops who "~s is not a string" out))
-       ($maybe-compile-file who in out (compile-program-handler))]
+       ($maybe-compile-file who in out (compile-program-handler))
+       (void)]
       [(in)
        (unless (string? in) ($oops who "~s is not a string" in))
        (let-values ([(in out) (in&out in)])
-         ($maybe-compile-file who in out (compile-program-handler)))]))
+         ($maybe-compile-file who in out (compile-program-handler)))
+       (void)]))
 
   (set-who! compile-to-file
     (rec compile-to-file