                               key-name
                               (:read rw)
                               (:write rw))]
-    (duragent* init (:error-handler rw) make-backend)))
+    (duragent* init meta (:error-handler rw) make-backend)))


(defn- duragent*
  "Common constructor for duragents"
  [init ehandler make-backend]
  (let [ag (agent nil :error-mode :continue)
        backend (with-meta (make-backend ag)
                           ;; force synchronous recommits

                                              {:type ::storage/commit-error}
                                              e))))))
                          (doto
                            (reset-meta! (merge meta-map
                                                {::storage/destroy
                                                 (partial storage/safe-cleanup! backend release cleanup-lock)
                                                 ::storage/snapshot
                                                 #(storage/snapshot backend)}))
                            (set-error-handler!
                              (if (nil? ehandler)
                                ut/noop
