 
       (string? coll)
       (if (< n (.-length coll))
-        (aget coll n)
+        (.charAt coll n)
         not-found)
 
       (implements? ISeq coll)

      
       (string? coll)
       (array-reduce coll f val)
       
       (native-satisfies? IReduce coll)
       (-reduce coll f val)



       (string? coll)
       (array-reduce coll f)

       (native-satisfies? IReduce coll)
       (-reduce coll f)

