diff --git a/collects/scheme/generator.ss b/collects/scheme/generator.ss
index e27ee6e915..a59bf9414e 100644
--- a/collects/scheme/generator.ss
+++ b/collects/scheme/generator.ss
@@ -28,10 +28,10 @@
     (splicing-syntax-parameterize ([yield (make-rename-transformer #'yielder)])
       (define (cont)
         (reset-at tag
-          (let ([result (begin body0 body ...)])
+          (let ([retval (begin body0 body ...)])
             ;; normal return:
-            (set! cont (lambda () result))
-            result))))
+            (set! cont (lambda () retval))
+            retval))))
     (define (generator) (cont))
     generator))