let* appears to be doing the right thing with regards to tail behavior

test-compiler.rkt

@@ -511,6 +511,24 @@
       (list (list 3 4 7)
             (list 17 18 35)))
 
+(test (let* ([x 0]
+             [x (add1 x)]
+             [x (add1 x)])
+        x)
+      2)
+ 
+
+(test (begin 
+          (define (sum-iter x acc)
+            (if (= x 0)
+                acc
+                (let* ([y (sub1 x)]
+                       [z (+ x acc)])
+                  (sum-iter y z))))
+          (sum-iter 300 0))
+      45150
+      #:stack-limit 8
+      #:control-limit 1)
 
 
 ;(simulate (compile (parse '42) 'val 'next))