 (s/fdef extract-cookie
         :args (s/cat :cookie-cutter ::state/cookie-cutter
                      :initiate-packet ::K/initiate-packet-spec)
-        :ret ::templates/cookie-spec)
+        :ret (s/nilable ::templates/cookie-spec))
 (defn extract-cookie
   [{:keys [::state/minute-key
            ::state/last-minute-key]

                                                                    {::message-box-keys (keys client-message-box)
                                                                     ::client-public-long-key (b-t/->string client-long-pk)})]
                                           (try
                                             (if (validate-server-name state client-message-box)
                                               ;; This takes us down to line 381
                                               (if (verify-client-public-key-triad state client-short-pk client-message-box)

                                                (- n packet-header-length))
                               initiate (serial/decompose-array tmplt message)
                               client-short-pk (bytes (::K/clnt-short-pk initiate))]
                           (println "Mark: Check for re-initiate")
                           (if-not (possibly-re-initiate-existing-client-connection! state initiate)
                             (let [active-client (state/find-client state client-short-pk)]
                               (if-let [cookie (extract-cookie (::state/cookie-cutter state)
