                          (let [entry (kc-entry-by-key kc key)]
                            (if (and entry (or include-deleted (not (:deleted entry))))
                              (aput multi-get res-ch
-                                   (merge res-m {:more true :status :ok
+                                   (merge res-m {:more true
+                                                 :status :ok
                                                  :key key :entry entry}))
                              (aput multi-get res-ch
-                                   (merge res-m {:more true :status :not-found
+                                   (merge res-m {:more true
+                                                 :status :not-found
                                                  :key key})))))
                        (aput-close multi-get res-ch (merge res-m {:status :ok}))))
                 nil)]

             (dissoc-in [:dirty :changes [old-sq key]])
             (assoc-in [:dirty :changes [new-sq key]] (assoc entry :sq new-sq)))
         {:more true :status :ok :key key :sq new-sq}]
        [kvs {:more true :status :mismatch :key key
              :status-info [:wrong-sq (:sq entry)]}]))))

     (kvs-do actx state-ch (:res-ch m)
             #(if-let [name (:name m)]
                (if-let [kvs (get-in % [:kvss name])]
                  [% (merge m {:status :ok
                               :status-info :reopened
                               :kvs-ident [name (:uuid kvs)]})]
                  [(-> %
                       (assoc-in [:kvss name] (make-kvs name (:next-uuid %)))
                       (assoc :next-uuid (inc (:next-uuid %))))
                   (merge m {:status :ok
                             :status-info :created
                             :kvs-ident [name (:next-uuid %)]})])
                [% (merge m {:status :invalid
                             :status-info :missing-name-arg})])))

   :kvs-remove
   (fn [actx state-ch m]
