         :args (s/cat :this ::state/state
                      :msg bytes?
                      :outer-nonce-suffix bytes?)
-        :ret (s/keys :req [::crypto-box ::log2/state]))
+        :ret (s/keys :req [::crypto-box ::log/state]))
 (defn build-initiate-interior
   "This is the 368+M cryptographic box that's the real payload/Vouch+message portion of the Initiate pack"
-  [{log-state ::log2/state
+  [{log-state ::log/state
     :as this} msg outer-nonce-suffix]
   ;; Important detail: we can use up to 640 bytes that we've
   ;; received from the client/child.

            nonce-suffix (b-t/sub-byte-array working-nonce
                                             K/client-nonce-prefix-length)
            {:keys [::crypto-box]
             log-state ::log2/state} (build-initiate-interior this msg nonce-suffix)
            log-state (log2/info log-state
                                 ::build-initiate-packet!
                                 "Stuffing crypto-box into Initiate packet"
                                 {::crypto-box (b-t/->string crypto-box)
                                  ::message-length (count crypto-box)})
            dscr (update-in K/initiate-packet-dscr
                            [::K/vouch-wrapper ::K/length]
                            +

                                       ;; documentation.
                                       (fn [bs]
                                         (let [{:keys [::message/possible-response]}
                                               (message/filter-initial-message-bytes bs)]
                                           possible-response))))
        :fn (fn [x]
              (let [legal-to-send (-> x
                                      :args
                                      :msg-bytes
                                      message/filter-initial-message-bytes
                                      ::message/possible-response)
                    real-result (-> x
                                    :ret
