diff --git a/pkgs/compiler-test/tests/compiler/demodularizer/demod-test.rkt b/pkgs/compiler-test/tests/compiler/demodularizer/demod-test.rkt
index 8e038c1287..a333e494c8 100644
--- a/pkgs/compiler-test/tests/compiler/demodularizer/demod-test.rkt
+++ b/pkgs/compiler-test/tests/compiler/demodularizer/demod-test.rkt
@@ -63,14 +63,15 @@
   (and (not (regexp-match #rx"merged" filename))
        (regexp-match #rx"rkt$" filename)))
 
-(test
- (for ([i (in-list (directory-list tests))])
-   (define ip (build-path tests i))
-   (when (modular-program? ip)
-     (printf "Checking ~a\n" ip)
-     (test-on-program (path->string ip))
-     (printf "Checking ~a, skip racket/private/pre-base\n" ip)
-     (test-on-program (path->string ip)
-                      (list "-e"
-                            (path->string
-                             (collection-file-path "pre-base.rkt" "racket/private")))))))
+(unless (eq? (system-type 'vm) 'chez-scheme)
+  (test
+   (for ([i (in-list (directory-list tests))])
+     (define ip (build-path tests i))
+     (when (modular-program? ip)
+       (printf "Checking ~a\n" ip)
+       (test-on-program (path->string ip))
+       (printf "Checking ~a, skip racket/private/pre-base\n" ip)
+       (test-on-program (path->string ip)
+                        (list "-e"
+                              (path->string
+                               (collection-file-path "pre-base.rkt" "racket/private"))))))))