...

original commit: 490c71cdd168f377bec8d48cf0f87ea66e99d1eb

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)])