    :snapshot
    (fn [actx state-ch m]
      (kvs-do actx state-ch (:res-ch m)
-             (fn [state] [state (assoc m :status :ok :kvs-snapshot state)])))
+             (fn [state] [state (assoc m :status :ok :snapshot state)])))
 
    :sync
    (fn [actx state-ch m]


   :multi-get
   (fn [actx state-ch m]
     (let [{:keys [kvs-ident kvs-snapshot kind keys include-deleted res-ch]} m
           res-m (dissoc m :keys)
           cb (fn [state kvs]
                (act multi-get actx


(defn make-scan-fn [scan-kind res-key get-entry]
  (fn [actx state-ch m]
     (let [{:keys [kvs-ident snapshot kind from to include-deleted res-ch]} m
           cb (fn [state kvs]
                (act scan-work actx
                     (let [kc ((or kind :dirty) kvs)] ; Either :clean or :dirty.
