                                           (ana/get-namespace ana/*cljs-ns*)))]
                               (reader/read rdr nil read-error))
                             (catch Exception e
-                              (println (.getMessage e))
+                              (print (.getMessage e))
                               read-error))]
                  ;; TODO: need to catch errors here too - David
                  (cond

             (when-let [src (:watch opts)]
               (future
                 (let [log-file (io/file (util/output-directory opts) "watch.log")]
                   (println "Watch compilation log available at:" (str log-file))
                   (binding [*out* (FileWriter. log-file)]
                     (cljsc/watch src (dissoc opts :watch))))))
             (loop []

                     (try
                       ((get special-fns (first form)) repl-env env form opts)
                       (catch Throwable ex
                         (print "Failed to execute special function:" (pr-str (first form)))
                         (trace/print-cause-trace ex 12)))
                     ;; flush output which could include stack traces
                     (flush)
