From f5306039cbd88028e988716429971c04075cc4f0 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 5 May 2021 07:18:16 -0600
Subject: [PATCH] repair a test

---
 racket/src/ChezScheme/mats/7.ms | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

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)