diff --git a/racket/collects/compiler/compiler.rkt b/racket/collects/compiler/compiler.rkt
index d6728b5e07..a6ff50af08 100644
--- a/racket/collects/compiler/compiler.rkt
+++ b/racket/collects/compiler/compiler.rkt
@@ -150,6 +150,7 @@
               (let ([p* (build-path dir p)])
                 (if (and (directory-exists? p*) (not (member p omit-paths)))
                     (compile-directory-visitor p* (c-get-info/full p*) worker omit-root
+                                               #:has-module-suffix? has-module-suffix?
                                                #:verbose verbose?
                                                #:skip-path orig-skip-path
                                                #:skip-paths orig-skip-paths