                               (str "Log state disappeared"
                                    "  trying to build-new-client")
                               {::built built}))]
-    (println "Mark B. active-client: " active-client)
     (if active-client
       (do-fork-child! (-> state
                           (select-keys [::state/child-spawner!])

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

                      :as client-message-box} ::K/initiate-client-vouch-wrapper} (open-client-crypto-box log-state
                                                                                                         initiate
                                                                                                         client-short<->server-short)]
                (if client-message-box
                  (let [client-long-pk (bytes client-long-pk)
                        active-client (assoc-in active-client
