 (defn print-discovered-devices [name-endpoint-map opts]
   {:pre [(map? name-endpoint-map) (map? opts)]}
   (if (empty? name-endpoint-map)
-    ((println-fn opts) "(No devices)")
+    (repl-println opts "(No devices)")
     (doseq [[choice-number [bonjour-name _]] (name-endpoint-map->choice-list name-endpoint-map)]
-      ((println-fn opts) (str "[" choice-number "] " (bonjour-name->display-name bonjour-name))))))
+      (repl-println opts (str "[" choice-number "] " (bonjour-name->display-name bonjour-name))))))
 
 (defn discover-and-choose-device
   "Looks for Ambly WebDAV devices advertised via Bonjour and presents

        (let [expected-clojurescript-version (cljs.util/clojurescript-version)
              actual-clojurescript-version (:value (jsc-eval repl-env "cljs.core._STAR_clojurescript_version_STAR_"))]
          (when-not (= expected-clojurescript-version actual-clojurescript-version)
            ((println-fn opts)
              (str "WARNING: " (bonjour-name->display-name bonjour-name)
                "\n         is running ClojureScript " actual-clojurescript-version
                ", while the Ambly REPL is\n         set up to use ClojureScript "

                   (deliver resp-promise :eof))
                 :eof)
      (= c 1) (do
                (repl-print opts (str sb))
                (repl-flush opts)
                (recur (StringBuilder.) (.read in)))
      (= c 0) (do
                (deliver @response-promise (str sb))
