   ;; 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)))))
-  (throw (RuntimeException. (str (first msgs)))))
+
+  (comment (log "Seriously?"))
+  (comment (throw (RuntimeException. (str (first msgs))))))
 
 (defmethod dispatch :default
   [echo]

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

(defn- read-message [s]
  (mq/recv-all-str s))

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