diff --git a/scheme/last-revision b/scheme/last-revision
index 11ad811..5b9849f 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1758
+1759
diff --git a/scheme/psyntax.expander.ss b/scheme/psyntax.expander.ss
index e4f32ee..90a37fa 100644
--- a/scheme/psyntax.expander.ss
+++ b/scheme/psyntax.expander.ss
@@ -1102,7 +1102,7 @@
                `(let ,(map list t* expr*)
                   ,(let f ((pat* pat*) (t* t*))
                      (cond
-                       ((null? pat*) `(begin ,b . ,b*))
+                       ((null? pat*) `(let () ,b . ,b*))
                        (else
                         `(syntax-case ,(car t*) ()
                            (,(car pat*) ,(f (cdr pat*) (cdr t*)))