diff --git a/collects/tests/mzscheme/for.ss b/collects/tests/mzscheme/for.ss
index 6f89d6d789..3deaeecc63 100644
--- a/collects/tests/mzscheme/for.ss
+++ b/collects/tests/mzscheme/for.ss
@@ -247,4 +247,10 @@
   (test '(#t #f #f #t #t #f odd even) 'yield-helper
         (list (g1) (g2) (g1) (g2) (g1) (g2) (g1) (g2))))
 
+(test '(1 2 3 1 2 3)
+      'infinite-generator
+      (let ([maker (infinite '(1 2 3))])
+        (list (maker) (maker) (maker)
+              (maker) (maker) (maker))))
+
 (report-errs)