                              ::poll-servers!
                              "Putting hello(s) onto ->server channel"
                              {::raw-packet raw-packet})]
+    ;; FIXME: Make completion go away. This level of indirection makes
+    ;; my head spin.
     (let [completion (dfrd/deferred)]
       (dfrd/on-realized completion
                         (partial send-succeeded! logger)

    {::shared/packet result
     ::log/state log-state}))

(s/fdef do-polling-loop
        :args (s/cat :completion ::specs/deferrable
                     :this ::state/state

                               cookie-waiter
                               (System/nanoTime)
                               ;; FIXME: The initial timeout needs to be customizable
                               ;; Q: Why aren't I using timeout?!
                               (util/seconds->nanos 1)
                               ;; Q: Do we really want to max out at 8?
                               ;; 8 means over 46 seconds waiting for a response,
