 
 (defn make-scan-fn [scan-kind res-key get-entry]
   (fn [actx state-ch m]
-     (let [{:keys [kvs-ident kvs-snapshot kind from to include-deleted res-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.

                       (aput-close multi-get res-ch (assoc res-m :status :ok))))
                nil)]
       (kvs-do actx state-ch res-ch
               (fn [state] ((kvs-checker m cb) (or kvs-snapshot state))))))

   :multi-change
   (fn [actx state-ch m]


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