diff --git a/lib/init-7.scm b/lib/init-7.scm
index ea0cee9f..cdc8dda6 100644
--- a/lib/init-7.scm
+++ b/lib/init-7.scm
@@ -271,9 +271,13 @@
   (er-macro-transformer
    (lambda (expr rename compare)
      (define (body exprs)
-       (if (compare (rename '=>) (car exprs))
-           `(,(cadr exprs) ,(rename 'tmp))
-           `(,(rename 'begin) ,@exprs)))
+       (cond
+        ((null? exprs)
+         (rename 'tmp))
+        ((compare (rename '=>) (car exprs))
+         `(,(cadr exprs) ,(rename 'tmp)))
+        (else
+         `(,(rename 'begin) ,@exprs))))
      (define (clause ls)
        (cond
         ((null? ls) #f)