                         K/hello-crypto-box-length
                         initial-cookie
                         K/server-nonce-suffix-length)
-        (log/info "Trying to extract cookie based on current minute-key")
+        (log/debug "Trying to extract cookie based on current minute-key")
         (when-let [success
                    (try
                      (crypto/secret-unbox result result box-size nonce (::minute-key cookie-cutter))
                      (catch ExceptionInfo _
                        ;; Try again with the previous minute-key
-                       (log/info "That failed. Try again with the previous minute-key")
+                       (log/debug "That failed. Try again with the previous minute-key")
                        (b-t/byte-copy! result 0 K/box-zero-bytes shared/zero-bytes)
                        (b-t/byte-copy! result
                                        K/box-zero-bytes

                                              nonce
                                              (::last-minute-key cookie-cutter))
                         (catch ExceptionInfo _
                           ;; For now, just silently discard this failure
                           (log/warn "Extracting the original crypto-box failed")))))]
          (let [extracted (byte-array (subvec (vec result)
                                              K/decrypt-box-zero-bytes

                expected-buffer (::K/clnt-short-pk initiate)
                expected (byte-array K/key-length)]
            (.getBytes expected-buffer 0 expected)
            (log/debug "Cookie extraction succeeded. Q: Do the contents match?"
                      "\nExpected:\n"
                      (with-out-str (b-s/print-bytes expected))
                      "\nActual:\n"
