     :as state}
    packet
    initiate]
-  (println "Mark A")
   (let [{log-state-2 ::log/state
          active-client ::state/current-client
          :as built} (build-new-client {::state/cookie-cutter cookie-cutter

         inner-pk ::specs/public-short} (unbox-innermost-key log-state
                                                             my-keys
                                                             client-message-box)]
    (println "Mark J. inner-pk:"
             inner-pk
             "log-state:"
             (dissoc log-state ::log/entries))
    (if inner-pk
      (let [matched? (b-t/bytes= client-short-pk inner-pk)]
        {::log/state (if matched?
                       log-state
                       (log/warn log-state
                                 ::client-public-key-triad-matches?
                                 "Inner pk doesn't match outer"

                                            ;; try to extract the inner hidden key
                                            {::message-box-keys (keys client-message-box)
                                             ::client-public-long-key (b-t/->string client-long-pk)})]
                    (try
                      (let [{:keys [::specs/matched?]
                             log-state ::log/state} (validate-server-name log-state
                                                                          my-keys
                                                                          client-message-box)]
                        (if matched?
                          ;; This takes us down to line 381
                          (let [{log-state ::log/state
                                 :keys [::specs/matched?]} (client-public-key-triad-matches? log-state
                                                                                             my-keys
                                                                                             client-short-pk
                                                                                             client-message-box)]
                            {::log/state log-state
                             ::state/current-client (when matched?
                                                      active-client)})
