                                             ;; 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?)
+                                 :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)})

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

                                                                                          packet
                                                                                          cookie
                                                                                          initiate)]
        (if client-short-pk
          (if client-short<->server-short
            (try
