diff --git a/racket/collects/syntax/parse/private/parse.rkt b/racket/collects/syntax/parse/private/parse.rkt index 120a615e69..f66d6f5d69 100644 --- a/racket/collects/syntax/parse/private/parse.rkt +++ b/racket/collects/syntax/parse/private/parse.rkt @@ -104,7 +104,8 @@ (let () (define the-rhs (parameterize ((current-syntax-context #'ctx)) - (fixup-rhs (syntax-local-eval #'the-rhs-expr) + (fixup-rhs (syntax-local-eval + (syntax-local-introduce #'the-rhs-expr)) (syntax-e #'splicing?) (syntax->datum #'relsattrs)))) (rhs->parser #'name #'formals #'relsattrs the-rhs (syntax-e #'splicing?) #'ctx)))]))