   (:gen-class))
 
 (defn- log [msg]
-  "FIXME: Debug only.
-Q: Really?
-A: Well, if nothing else, this is mostly useless. Desperately need something 
-that resembles real logging."
-  (spit "/tmp/log.txt" (str msg)))
+  "FIXME: Debug only."
+  (with-open [w (io/writer "/tmp/log.txt" :append true)]
+    (.write w (str msg))
+    (.write w "\n")))
 
 (defn- read-message [s]
   (mq/recv-all-str s))

(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))

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]
  (log (str "Kicking off the authentication runner thread in context: "
            ctx "\nwaiting on Done Reference " done-reference))
  (.start (Thread. (fn []
                     (authenticator ctx done-reference)))))
