            ::shared/work-area]
     log-state ::log/state
     :as this}]
-  ;; This has really been refactored out of cookie->vouch,
-  ;; as a first step toward making the bites a little more
-  ;; digestible. TODO: Continue that process.
   (let [{:keys [::shared/working-nonce
                 ::shared/text]} work-area
         keydir (::shared/keydir my-keys)

                                ::build-vouch
                                "Setting up working nonce"
                                {::shared/working-nonce working-nonce})
            log-state (try
                        (b-t/byte-copy! working-nonce K/vouch-nonce-prefix)
                        (let [log-state
                              (if keydir
                                (crypto/do-safe-nonce log-state working-nonce keydir K/server-nonce-prefix-length false)
                                (crypto/do-safe-nonce log-state working-nonce K/server-nonce-prefix-length))
                              ^TweetNaclFast$Box$KeyPair short-pair (::shared/short-pair my-keys)]
                          (b-t/byte-copy! text 0 K/key-length (.getPublicKey short-pair))
                          log-state)
                        (catch Exception ex
                          (log/flush-logs! logger (log/exception log-state
                                                                 ex
                                                                 ::build-vouch
                                                                 "Setting up working-nonce or short-pair"))
                          (throw ex)))]
        (if-let [shared-secret (::state/client-long<->server-long shared-secrets)]
          (let [log-state (log/debug log-state
                                     ::build-vouch

        {log-state ::log/state
         vouch ::vouch} (build-inner-vouch (assoc this
                                                  ::log/state log-state))]
    (assert log-state)
    (build-initiate-packet! (assoc this
                                   ::log/state log-state
                                   ::specs/inner-i-vouch vouch)
