clojure compiler bug?

clj_bug.clj

;; maybe something related to locals clearing and/or forwarding of bindings (?)
;; warning: this will lead to heap overflow quite fast!


(let [s (range)]
  (if true
    (future
      (loop [s s]
        (recur (rest s))))
    :whatever))



;; NOTE, this works fine:

(let [s (range)] 
  (loop [s s]
    (recur (rest s))))