 
 This is destructive in the sense that it overwrites ::shared/work-area
 FIXME: Change that"
-  [this msg-bytes]
+  [{log-state ::log/state
+    :as this} msg-bytes]
   (let [{log-state ::log/state
-         msg ::message/possible-response} (message/filter-initial-message-bytes this
+         msg ::message/possible-response} (message/filter-initial-message-bytes log-state
                                                                                 msg-bytes)]
     (if msg
       ;; I really don't like this approach to a shared work-area.

           ::shared/work-area]
    log-state ::log/state
    :as this}]
  ;; This has really been refactored out of cookie->vouch,
  ;; as a first step toward making the bites a little more
  ;; digestible. TODO: Continue that process.
  (let [{:keys [::shared/working-nonce
                ::shared/text]} work-area
        keydir (::shared/keydir my-keys)

        {log-state ::log/state
         vouch ::vouch} (build-inner-vouch (assoc this
                                                  ::log/state log-state))]
    (assert log-state)
    (build-initiate-packet! (assoc this
                                   ::log/state log-state
                                   ::specs/inner-i-vouch vouch)
