diff --git a/collects/tests/mzscheme/for.ss b/collects/tests/mzscheme/for.ss
index 7188b60825..6bd78d5129 100644
--- a/collects/tests/mzscheme/for.ss
+++ b/collects/tests/mzscheme/for.ss
@@ -3,6 +3,8 @@
 
 (Section 'for)
 
+(require scheme/generator)
+
 (define-syntax (test-multi-generator stx)
   (syntax-case stx ()
     [(_ [(v ...) ...] gen)
@@ -199,4 +201,9 @@
   (test 13 next)
   (test #f more?))
 
+(test-generator [(0 1 2)] ((lambda-generator () (yield 0) (yield 1) (yield 2))))
+(test-generator [(0 1 2)] (in-generator (yield 0) (yield 1) (yield 2)))
+(test '((1 0) (2 1) (3 2)) 'indexed-generator (for/list ([(x i) (in-indexed (in-generator (yield 1) (yield 2) (yield 3)))])
+                                                        (list x i)))
+
 (report-errs)