                                                                          ::state/server-extension
                                                                          ::state/server-security
                                                                          ::state/shared-secrets])
-                                                           ::log2/state log-state
+                                                           ::log/state log-state
                                                            ::shared/packet message))]
             (let [this (into this decrypted)
                   {:keys [::shared/my-keys]} this
                   server-short (get-in this
                                        [::state/server-security
                                         ::specs/public-short])
-                  log-state (log2/debug log-state
-                                        ::cookie->vouch
-                                        "Managed to decrypt the cookie")]
+                  log-state (log/debug log-state
+                                       ::cookie->vouch
+                                       "Managed to decrypt the cookie")]
               (assert server-short (str "Missing ::specs/public-short among\n"
                                         (keys (::state/server-security this))
                                         "\namong bigger-picture\n"

               (b-t/bytes= extension client-extension)
               (b-t/bytes= server-extension server-extension))
      (decrypt-actual-cookie (assoc this
                                    ::log2/state log-state)
                             rcvd))))

(s/fdef received-response

            [frereth-cp.shared.bit-twiddling :as b-t]
            [frereth-cp.shared.constants :as K]
            [frereth-cp.shared.crypto :as crypto]
            [frereth-cp.shared.logging :as log]
            [frereth-cp.shared.specs :as specs]
            [frereth-cp.shared.serialization :as serial]
            [frereth-cp.util :as utils]
