diff --git a/collects/tests/framework/mem.ss b/collects/tests/framework/mem.ss
index 9fc2d049..368f2bd9 100644
--- a/collects/tests/framework/mem.ss
+++ b/collects/tests/framework/mem.ss
@@ -15,6 +15,8 @@
                   (,close o)
                   (cons b (loop (- n 1))))]))])
       (collect-garbage)
+      (collect-garbage)
+      (collect-garbage)
       (set! mem-boxes (cons (list ,tag new-boxes) mem-boxes)))))
 
 (define (done)
@@ -24,6 +26,8 @@
       (collect-garbage)
       (collect-garbage)
       (collect-garbage)
+      (collect-garbage)
+      (collect-garbage)
       (let ([f (make-object dialog% "Results")]
             [anything? #f])
         (for-each
@@ -38,6 +42,8 @@
 	     (let loop ([tries 4])
 	       (unless (zero? tries)
 		 (when (> (calc-results) 0)
+		   (collect-garbage)
+		   (collect-garbage)
 		   (collect-garbage)
 		   (loop (- tries 1)))))
              (let ([res (calc-results)])