       (when coll
         (.append sb (first coll))
         (recur (next coll))))
-    (.toString sb ())))
+    (str sb)))
 
 (defn pr-with-opts
   "Prints a single object using string-print, observing all

          [end]))

(extend-protocol IPrintable
  goog.global.Number (-pr-seq [n opts] (list (.toString n 10)))
  goog.global.String (-pr-seq [str opts]
                        (if (get opts "readably")
                          (list (goog.string.quote str))
                          (list str)))
  goog.global.Boolean (-pr-seq [bool opts] (list (.toString bool ())))
  goog.global.Array (-pr-seq [a opts]
                      (pr-sequential pr-seq "#<Array [" ", " "]>" opts a)))


(defn pr-str
  "pr to a string, returning it. Fundamental entrypoint to IPrintable."
  [obj]
  (pr-str-with-opts obj {:readably true}))

(defn pr
  "Prints the object(s) using string-print.  Prints the
