git » jacl.git » commit a3e66ed

diff --git a/boot.lisp b/boot.lisp
index 4050fe8..ae64ee1 100644
--- a/boot.lisp
+++ b/boot.lisp
@@ -505,7 +505,7 @@
                                                           `(setq ,(car step-form) ,(caddr step-form))))
                                                       step-forms))))
     `(block nil
-       (let ,bindings
+       (let* ,bindings
          (tagbody
             ,begin#
             (if ,end-test-form
diff --git a/jacl-tests.lisp b/jacl-tests.lisp
index d5c5beb..c8f84b2 100644
--- a/jacl-tests.lisp
+++ b/jacl-tests.lisp
@@ -152,9 +152,13 @@
        ((eql i 5)
         (assert= i 5)
         (assert= k 0))
-    (setq k (1- k))))
+    (setq k (1- k)))
 
-(deftest "DO")
+  (do* ((x 0 (1+ x))
+        (y x (1+ x)))
+       ((eql x 5) (assert= y 6))))
+
+;; (deftest "DO")
 
 (deftest "DOLIST"
   (let ((x 0))