 done-reference is some sort of deref-able instance that will tell the thread to quit.
 This feels like an odd approach, but nothing more obvious springs to mind."
   [ctx done-reference]
-  (println "Kicking off the authentication runner thread in context: "
-           ctx "\nwaiting on Done Reference " done-reference)
+  (log (str "Kicking off the authentication runner thread in context: "
+            ctx "\nwaiting on Done Reference " done-reference))
   (.start (Thread. (fn []
                      (authenticator ctx done-reference)))))

(defmethod dispatch :list [msgs]
  ;; Based on the next line, I have something like a Vector of byte arrays.
  ;; Which seems pretty reasonable.
  (log msgs)
  (log "\n(that's some sort of SEQ of messages)")

  ;; Q: What are the odds that I can call a method this way?
  (comment (dorun dispatch msgs))

  ;; Or possibly my real problem is laziness?
  (comment (for [m msgs]
             (throw (RuntimeException. (str m)))))

  (comment (log "Anything interesting?\n"))

  (log msgs)
  (if-let [car (first msgs)]
    (do
      (log car)
      (dispatch (rest msgs)))
    (do
      (log (str "Empty CAR. CDR: " (rest msgs)))))

  (comment (log "Seriously?"))
  (comment (throw (RuntimeException. (str (first msgs))))))

(defmethod dispatch :default
  [echo]
