           (.getBytes inner-pk-buf 0 inner-pk)
           (b-t/bytes= short-pk inner-pk))))))
 
-(s/fdef do-fork-child
+(s/fdef do-fork-child!
   :args (s/cat :state ::state/state
                :active-client ::state/client-state
                :client-long-pk ::shared/public-key

               :initiate ::serial/decomposed
               :client-message-box ::K/initiate-client-vouch-wrapper)
  :ret ::state/state)
(defn do-fork-child
  [{log-state ::log2/state
    :as state}
   active-client

        :args (s/cat :state ::state
                     :initiate-packet ::K/initiate-packet-spec)
        :ret (s/keys :req [::log2/state]
                     :opt [::handled?
                           ::state/client-state]))
(defn possibly-re-initiate-existing-client-connection!
  "Client can send as many Initiate packets as it likes.

