diff --git a/collects/2htdp/private/syn-aux.ss b/collects/2htdp/private/syn-aux.ss
index af365c6f29..dfaaffc22e 100644
--- a/collects/2htdp/private/syn-aux.ss
+++ b/collects/2htdp/private/syn-aux.ss
@@ -39,7 +39,7 @@
 (define (clauses-use-kwd stx:list ->rec? legal-clause kwd-in?)
   (map (lambda (stx)
          (syntax-case stx ()
-           [(kw . E) (kwd-in? #'kw) (begin (->rec? #'kw) (cons #'kw stx))]
+           [(kw . E) (kwd-in? #'kw) (begin (->rec? #'kw #'E) (cons #'kw stx))]
            [_ (raise-syntax-error #f legal-clause stx)]))
        stx:list))