--- and-let-star.scm.~1.7.~	2004-08-18 10:17:23.000000000 +1000
+++ and-let-star.scm	2004-08-19 14:34:36.000000000 +1000
@@ -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