                          (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)]

             (fn [state]
               (act list-names actx
                    (doseq [name (keys (:kvss state))]
                      (aput list-names (:res-ch m) (merge m {:more true :status :ok
                                                             :name name})))
                    (aput-close list-names (:res-ch m) (merge 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)]}]))))
