diff --git a/collects/syntax/parse/private/runtime.rkt b/collects/syntax/parse/private/runtime.rkt
index 1648fbf6d5..fb1284e495 100644
--- a/collects/syntax/parse/private/runtime.rkt
+++ b/collects/syntax/parse/private/runtime.rkt
@@ -308,15 +308,15 @@
     [(no-shadow e)
      (let ([ee (local-expand #'e (syntax-local-context)
                              (kernel-form-identifier-list))])
-       (syntax-case ee (begin define-values defines-syntaxes)
+       (syntax-case ee (begin define-values define-syntaxes)
          [(begin d ...)
           #'(begin (no-shadow d) ...)]
          [(define-values . _)
-          (check-shadow ee)
-          ee]
+          (begin (check-shadow ee)
+                 ee)]
          [(define-syntaxes . _)
-          (check-shadow ee)
-          ee]
+          (begin (check-shadow ee)
+                 ee)]
          [_
           ee]))]))