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

                         (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
                                                 :key key :entry entry}))
                             (aput multi-get res-ch
                                   (merge res-m {:more true :status :not-found
                                                 :key key})))))
                       (aput-close multi-get res-ch (merge res-m {:status :ok}))))
                nil)]

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