diff --git a/ice-9/and-let-star.scm b/ice-9/and-let-star.scm
index 9bd01d138..6604df163 100644
--- a/ice-9/and-let-star.scm
+++ b/ice-9/and-let-star.scm
@@ -25,7 +25,9 @@
   (define (expand vars body)
     (cond
      ((null? vars)
-      `(begin ,@body))
+      (if (null? body)
+	  #t
+	  `(begin ,@body)))
      ((pair? vars)
       (let ((exp (car vars)))
         (cond