Index: test-suite/tests/gc.test
===================================================================
RCS file: /cvsroot/guile/guile/guile-core/test-suite/tests/gc.test,v
retrieving revision 1.8
diff -u -r1.8 gc.test
--- test-suite/tests/gc.test	16 Apr 2006 23:27:14 -0000	1.8
+++ test-suite/tests/gc.test	7 Feb 2008 21:42:47 -0000
@@ -65,6 +65,10 @@
 				  "eval-closure" (gc-live-object-stats)))))
 	       
 	     (for-each (lambda (x) (make-module)) (iota 1000))
+             (let cleanup ((i 10))
+               (and (> i 0)
+                    (begin (cleanup (1- i)) i)))
+
 	     (gc)
 	     (gc) ;; twice: have to kill the weak vectors.
 	     (= last-count (cdr (assoc "eval-closure" (gc-live-object-stats)))))