 (defn verify-client-pk-in-vouch
   [initiate hidden-pk]
   (let [expected (bytes (::K/clnt-short-pk initiate))]
+    ;; This is disconcerting.
+    ;; The values I'm seeing here very obviously do not match.
+    ;; But apparently bytes= thinks they do.
     (log/debug "Cookie extraction succeeded. Q: Do the contents match?"
                "\nExpected:\n"
                (shared/bytes->string expected)

                                   ;; Now we're ready to tackle handling the main message body cryptobox.
                                   ;; This corresponds to line 373 in the reference implementation.
                                   (try
                                     (let [{log-state ::log2/state
                                            client-message-box ::K/initiate-client-vouch-wrapper} (open-client-crypto-box log-state
                                                                                                                          initiate

                                                                                     client-short-pk
                                                                                     server-short-sk)
                                       state (state/alter-client-state state active-client)]
                                   ;; Now we've verified that the Initiate packet came from a
                                   ;; client that has the secret key associated with the short-term
                                   ;; public key.
