diff --git a/racket/src/ChezScheme/mats/7.ms b/racket/src/ChezScheme/mats/7.ms
index 34e9e98150..685e3d9d89 100644
--- a/racket/src/ChezScheme/mats/7.ms
+++ b/racket/src/ChezScheme/mats/7.ms
@@ -6142,9 +6142,10 @@ evaluating module init
    (>= (collections) 0)
    (>= (bytes-deallocated) 0)
    (let ([b (bytes-deallocated)] [c (collections)])
-     (let ([x (make-list 10 'a)])
-       (pretty-print x))
-     (collect)
+     (with-interrupts-disabled ; ensure allocated list stays in generation 0 until printed
+      (let ([x (make-list 10 'a)])
+        (pretty-print x))
+      (collect))
      (and (> (collections) c) (> (bytes-deallocated) b)))
    (>= (bytes-allocated #f #f) 0)
    (andmap (lambda (space)