               ;; Important note: I'm deliberately not releasing this, because I'm sending it back.
               (.clear message)
               (let [packet
-                    (build-cookie-packet! message clnt-xtn srvr-xtn working-nonce text)]
+                    (build-cookie-packet message clnt-xtn srvr-xtn working-nonce text)]
                 (log/info "Cookie packet built. Returning it.\n"
-                          (with-out-str (bs/print-bytes packet)))
+                          (with-out-str (b-s/print-bytes packet)))
                 (try
                   (let [dst (get-in state [::client-write-chan :chan])
                         success (stream/try-put! dst

          {:keys [::shared/text ::shared/working-nonce]} working-area]
      (log/info (str "Incoming HELLO\n"
                     "Client short-term PK:\n"
                     (with-out-str (bs/print-bytes client-short-pk))
                     "\nMy long-term PK:\n"
                     (with-out-str (bs/print-bytes (.getPublicKey long-keys)))
                     "\nOur shared secret:\n"
                     (with-out-str (bs/print-bytes shared-secret))))
      (b-t/byte-copy! working-nonce
                      shared/hello-nonce-prefix)
      (.readBytes nonce-suffix working-nonce shared/client-nonce-prefix-length shared/client-nonce-suffix-length)

    :as packet}]
  (log/debug "Incoming")
  (if (check-packet-length message)
    (let [header (byte-array K/header-length)
          extension (byte-array K/extension-length)
          current-reader-index (.readerIndex message)]
      (.readBytes message header)
