diff --git a/scheme/last-revision b/scheme/last-revision
index f9d0c24..ba47111 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1751
+1752
diff --git a/scheme/psyntax.expander.ss b/scheme/psyntax.expander.ss
index 007955d..f8b0296 100644
--- a/scheme/psyntax.expander.ss
+++ b/scheme/psyntax.expander.ss
@@ -1031,7 +1031,7 @@
     (lambda (e)
       (define (build-last cls)
         (syntax-match cls (else)
-          ((else e e* ...) `(begin ,e . ,e*))
+          ((else e e* ...) `(let () #f ,e . ,e*))
           (_ (build-one cls '(if #f #f)))))
       (define (build-one cls k)
         (syntax-match cls ()
@@ -1520,7 +1520,7 @@
              (cond
                ((null? cls*)
                 (syntax-match cls (else =>)
-                  ((else e e* ...) `(begin ,e . ,e*))
+                  ((else e e* ...) `(let () #f ,e . ,e*))
                   ((e => p) `(let ((t ,e)) (if t (,p t))))
                   ((e) `(or ,e (if #f #f)))
                   ((e e* ...) `(if ,e (begin . ,e*)))