   [handler-fn]
   (->interceptor
     :name   :db-handler
-
-    :before (fn handler-wrapper
-              [context]
-              (let [{:keys [db event]} (:coeffects context)
-                    context' (->>  (handler-fn db event)
-                                   (assoc-effect context :db))]
-                context'))))
+    :before (fn db-handler-before
+              [context]
+              (let [{:keys [db event]} (:coeffects context)]
+                (->>  (handler-fn db event)
+                      (assoc-effect context :db))))))
 
 
 (defn fx-handler->interceptor

        [db [x y z]]    ;; <-- instead of [_ x y z]
        ....)"
  (->interceptor
    :name :trim-v

    :before  (fn [context]
               (->>  (get-coeffect context :event)
                     rest
                     vec

  [f out-path & in-paths]
  (->interceptor
    :name  :enrich
    :after (fn on-change-after
             [context]
             (let [new-db   (get-effect context :db)
                   old-db   (get-coeffect context :db)

