                                     text
                                     vouch
                                     work-area]
-                             :as this} (clientextension-init this)
+                             :as this} (state/clientextension-init this)
                             {:keys [::shared/packet
                                     ::shared/packet-nonce]} packet-management
                             _ (throw (RuntimeException. "this Component nonce isn't updated"))
-                            short-term-nonce (update-client-short-term-nonce
+                            short-term-nonce (state/update-client-short-term-nonce
                                               packet-nonce)
                             working-nonce (::shared/working-nonce work-area)]
                         (b-t/uint64-pack! working-nonce K/client-nonce-prefix-length

            [clojure.spec.alpha :as s]
            [clojure.tools.logging :as log]
            [frereth-cp.client.cookie :as cookie]
            [frereth-cp.client.state :as state]
            [frereth-cp.schema :as schema]
            [frereth-cp.shared :as shared]

    ;; But it probably should, since this is very
    ;; explicitly place-oriented programming working
    ;; with mutable state.
    (send wrapper hello/do-build-hello)
    (if (await-for timeout wrapper)
      (cope-with-successful-hello-creation wrapper chan->server timeout)
      (throw (ex-info (str "Timed out after " timeout
