               all))))
 
 (defn coerce-structure-vals [^TransformFunctions tfns]
-  (if (= (extype tfns) :svalspath)
+  (if (= (extype tfns) :richpath)
     tfns
     (let [selector (.-selector tfns)
           transformer (.-transformer tfns)]
       (->TransformFunctions
-        StructureValsPathExecutor
+        RichPathExecutor
         (fn [vals structure next-fn]
           (selector structure (fn [structure] (next-fn vals structure))))
         (fn [vals structure next-fn]

        selector (:select* pimpl)
        transformer (:transform* pimpl)]
    (->TransformFunctions
      StructureValsPathExecutor
      (fn [vals structure next-fn]
        (selector this structure (fn [structure] (next-fn vals structure))))
      (fn [vals structure next-fn]

        afn (fn [vals structure next-fn]
              (next-fn (conj vals (cfn this structure)) structure)
              )]
    (->TransformFunctions RichPathExecutor afn afn)))


(defn coerce-structure-path [this]
