   [{log-state ::log2/state
     :keys [::log2/logger]
     :as state}
-   {:keys [:host :port]
-    message :message
+   {:keys [:message]
     :as packet}]
   (let [log-state-atom (atom (log2/info log-state
                                         ::handle!

          (.getBytes inner-pk-buf 0 inner-pk)
          (b-t/bytes= short-pk inner-pk))))))

(s/fdef do-fork-child
  :args (s/cat :state ::state/state
               :active-client ::state/client-state
               :client-long-pk ::shared/public-key

    (try
      (let [n (count message)]
        (if (>= n (+ K/box-zero-bytes packet-header-length))
          (let [initiate (decompose-initiate-packet n message)]
            (println "Mark: Check for re-initiate")
            (let [{:keys [::handled
                          ::state/client-state]
                   ;; The way this is handled is wrong.
                   ;; Have this return the active client, if any.
                   ;; Then we can eliminate the message-forwarding duplication
