 
   ISorted
   (-sorted-seq [coll ascending?]
-    (map key (-sorted-seq-from tree-map ascending?)))
+    (map key (-sorted-seq tree-map ascending?)))
 
   (-sorted-seq-from [coll k ascending?]
     (map key (-sorted-seq-from tree-map k ascending?)))

     (< 1 (- cnt (tail-off coll)))
      (PersistentVector. meta (dec cnt) shift root (.slice tail 0 -1))
      :else (let [new-tail (array-for coll (- cnt 2))
                  nr (pop-tail shift root)
                  new-root (if (nil? nr) cljs.core.PersistentVector/EMPTY_NODE nr)
                  cnt-1 (dec cnt)]
              (if (and (< 5 shift) (nil? (aget new-root 1)))


            (nil? n)
            (if (<= cnt 8)
              (pack-array-node inode nil idx)
              (ArrayNode. nil (dec cnt) (clone-and-set arr idx n)))

            :else
