     (if (== hash collision-hash)
       (let [idx (hash-collision-node-find-index arr cnt key)]
         (if (== idx -1)
-          (if (> (.-length arr) (* 2 cnt))
+          (if (> (alength arr) (* 2 cnt))
             (let [editable (edit-and-set inode edit (* 2 cnt) key (inc (* 2 cnt)) val)]
               (set! (.-val added-leaf?) true)
               (set! (.-cnt editable) (inc (.-cnt editable)))
               editable)
-            (let [len     (.-length arr)
+            (let [len     (alength arr)
                   new-arr (make-array (+ len 2))]
               (array-copy arr 0 new-arr 0 len)
               (aset new-arr len key)

            (edit-and-set inode edit idx n))))))

  (kv-reduce [inode f init]
    (let [len (.-length arr)]           ; actually 32
      (loop [i 0 init init]
        (if (< i len)
          (let [node (aget arr i)]


  IStack
  (-peek [coll]
    (let [count (alength array)]
      (when (> count 0)
        (aget array (dec count)))))
  (-pop [coll]
    (if (> (alength array) 0)
      (let [new-array (aclone array)]
        (. new-array (pop))
        (Vector. meta new-array nil))
