     (when (seq msg)
       ;; Just got a batch of messages. What do they mean?
       ;; For starters, go with super-easy
+      ;; I bet this is at least part of my problem: I *really* have a
+      ;; java-style byte[]. I bet that qualifies as a seq.
       :list)))
 
 (defmulti ^:private dispatch

  (print "Dispatching a sequence of messages: " msgs)
  ;; Apparently, expectations redirects STDOUT
  ;;(throw (RuntimeException. "Why didn't that show up?"))
  (comment (dorun #(dispatch %) msgs))
  (for [m msgs]
    (throw (RuntimeException. (str m)))))


      ;; I hate to break this up like this, but it just is not
      ;; a performance-critical section.
      ;; Probably.
      (spit "/tmp/log.txt" (format "Sending: %s" msgs))
      (spit "/tmp/log.txt" (format "\nto\n%s" s))
      (mq/send-all s msgs))))


