diff --git a/collects/scheme/splicing.ss b/collects/scheme/splicing.ss
index 3a864ce061..725283c4f8 100644
--- a/collects/scheme/splicing.ss
+++ b/collects/scheme/splicing.ss
@@ -118,9 +118,12 @@
                                #f)])
        ;; Extract expanded body out of `body':
        (syntax-case body (quote)
-         [(ls _ _ (quoute body))
+         [(ls _ _ (quote body))
           (let ([body #'body])
             (syntax-case body (begin define-values define-syntaxes define-for-syntaxes)
+              [(begin expr ...)
+               (syntax/loc body
+                 (begin (expand-ssp-body (sp-id ...) (temp-id ...) expr) ...))]
               [(define-values (id ...) rhs)
                (syntax/loc body
                  (define-values (id ...)