      (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 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})])))
+                   (assoc m :status :ok :status-info :created
+                          :kvs-ident [name (:next-uuid %)])])
+                [% (assoc m :status :invalid :status-info :missing-name-arg)])))
 
    :kvs-remove
    (fn [actx state-ch m]
      (kvs-do actx state-ch (:res-ch m)
              (kvs-checker m (fn [state kvs]
                               [(dissoc-in state [:kvss (:name kvs)])
-                               (merge m {:status :ok
-                                         :status-info :removed})]))))
+                               (assoc m :status :ok :status-info :removed)]))))
 
    :multi-get
    (fn [actx state-ch m]

                                         (-> kvs
                                             (assoc :clean (:dirty kvs))
                                             (assoc :dirty (make-kc))))
                               (merge m {:status :ok
                                         :status-info [:synced (:kv-ident m)]})]))))})

(defn make-kvs-mgr [actx & {:keys [cmd-ch state-ch op-handlers]}]
  (let [cmd-ch (or cmd-ch (achan actx))

                         (when-let [entry (get-entry kc k v)]
                           (when (or include-deleted (not (:deleted entry)))
                             (aput scan-work res-ch
                                   (assoc m :more true :status :ok
                                          res-key key :entry entry)))))
                       (aput-close scan-work res-ch (assoc m :status :ok))))
                nil)]
       (kvs-do actx state-ch res-ch
               (fn [state] ((kvs-checker m cb) (or kvs-snapshot state)))))))
