     (cond
      (nil? ch) (throw "EOF while reading string")
      (= "\\" ch) (recur (escape-char buffer reader) (read-char reader))
-     (= \" ch) (.toString buffer)
+     (= \" ch) (. buffer (toString))
      :default (recur (do (.append buffer ch) buffer) (read-char reader)))))
 
 (defn read-symbol

    (if (or (nil? ch)
            (whitespace? ch)
            (macro-terminating? ch))
      (do (unread rdr ch) (.toString sb))
      (recur (do (.append sb ch) sb) (read-char rdr)))))

(defn- skip-line

    (if (or (nil? ch) (whitespace? ch) (contains? macros ch))
      (do
        (unread reader ch)
        (match-number (. buffer (toString))))
      (recur (do (.append buffer ch) buffer) (read-char reader)))))

(defn read-string
