diff --git a/collects/scheme/private/more-scheme.ss b/collects/scheme/private/more-scheme.ss
index 38c7f60974..d04c43d09a 100644
--- a/collects/scheme/private/more-scheme.ss
+++ b/collects/scheme/private/more-scheme.ss
@@ -21,9 +21,9 @@
     (lambda (x)
       (syntax-case x (else)
 	((_ v)
-	 (syntax (begin v (void))))
+	 (syntax (#%expression (begin v (void)))))
 	((_ v (else e1 e2 ...))
-	 (syntax/loc x (begin v e1 e2 ...)))
+	 (syntax/loc x (#%expression (begin v e1 e2 ...))))
 	((_ v ((k ...) e1 e2 ...))
 	 (syntax/loc x (if (case-test v (k ...)) (begin e1 e2 ...) (void))))
 	((_ v ((k ...) e1 e2 ...) c1 c2 ...)