diff --git a/collects/compiler/compiler-unit.rkt b/collects/compiler/compiler-unit.rkt
index cde16551fb..43d7c509ba 100644
--- a/collects/compiler/compiler-unit.rkt
+++ b/collects/compiler/compiler-unit.rkt
@@ -190,14 +190,12 @@
                     dir))
           (for/fold ([init init]) ([p (directory-list dir)])
             (let ([p* (build-path dir p)])
-              (worker 
-                (if (and (directory-exists? p*) (not (member p omit-paths)))
+              (if (and (directory-exists? p*) (not (member p omit-paths)))
                   (compile-directory-visitor p* (c-get-info/full p*) worker
-                                   #:verbose verbose?
+                                             #:verbose verbose?
                                    #:skip-path skip-path
                                    #:skip-doc-sources? skip-docs?)
-                  null)
-                 init))))
+                  init))))
         init))))
   (define (compile-directory dir info 
                              #:verbose [verbose? #t] 
diff --git a/collects/tests/compiler/collection-zos.rkt b/collects/tests/compiler/collection-zos.rkt
new file mode 100644
index 0000000000..f74074d856
--- /dev/null
+++ b/collects/tests/compiler/collection-zos.rkt
@@ -0,0 +1,5 @@
+#lang racket
+(require compiler/compiler)
+
+;; minimal sanity check:
+(compile-collection-zos "setup")