diff --git a/collects/scribblings/reference/pairs.scrbl b/collects/scribblings/reference/pairs.scrbl
index 29e0761968..8851966cb5 100644
--- a/collects/scribblings/reference/pairs.scrbl
+++ b/collects/scribblings/reference/pairs.scrbl
@@ -7,7 +7,7 @@
 
 @(define (generate-c_r-example proc)
   (define (make-it start n)
-    (generator
+    (generator ()
       (let loop ([start start]
                  [n n])
         (yield (list* n start))
diff --git a/collects/scribblings/reference/sequences.scrbl b/collects/scribblings/reference/sequences.scrbl
index aac2bc8033..f3bd9ced66 100644
--- a/collects/scribblings/reference/sequences.scrbl
+++ b/collects/scribblings/reference/sequences.scrbl
@@ -335,7 +335,7 @@ Note: the first form must be @scheme[()], and in the future this will
 hold argument names that are used in the initial generator call.
 
 @examples[#:eval (generator-eval)
-(define g (generator
+(define g (generator ()
 	    (let loop ([x '(a b c)])
 	      (if (null? x)
 		0
@@ -354,7 +354,7 @@ with a stop-value known to the generator.
 
 @examples[#:eval (generator-eval)
 (define my-stop-value (gensym))
-(define my-generator (generator
+(define my-generator (generator ()
 		       (let loop ([x '(a b c)])
 			 (if (null? x)
 			   my-stop-value
@@ -404,14 +404,14 @@ the arguments to the generator instance. Note that a value cannot be passed back
 to the generator until after the first @scheme[yield] has been invoked.
 
 @examples[#:eval (generator-eval)
-(define my-generator (generator (yield 1) (yield 2 3 4)))
+(define my-generator (generator () (yield 1) (yield 2 3 4)))
 (my-generator)
 (my-generator)
 ]
 
 @examples[#:eval (generator-eval)
 (define pass-values-generator
-  (generator
+  (generator ()
     (let* ([from-user (yield 2)]
            [from-user-again (yield (add1 from-user))])
       (yield from-user-again))))
@@ -436,7 +436,7 @@ of the generator.
  ]
 
 @examples[#:eval (generator-eval)
-(define my-generator (generator (yield 1) (yield 2)))
+(define my-generator (generator () (yield 1) (yield 2)))
 (generator-state my-generator)
 (my-generator)
 (generator-state my-generator)
@@ -445,7 +445,7 @@ of the generator.
 (my-generator)
 (generator-state my-generator)
 
-(define introspective-generator (generator ((yield 1))))
+(define introspective-generator (generator () ((yield 1))))
 (introspective-generator)
 (introspective-generator 
  (lambda () (generator-state introspective-generator)))