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

                                                     {::problem x}))))
    (assoc state ::log2/state log-state)))

(s/fdef decompose-initiate-packet
  :args (s/cat :packet-length nat-int?
               :message-packet ::shared/message)
  :ret ::serial/decomposed)
(defn decompose-initiate-packet
  [packet-length
   message-packet]

          (.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
