             pclass-ctor_ (if primitive?
                            (resolve-plant-class ir hem-pclass pargs
                                                 henpt subtask_))
-            ;; DEBUG
-            _ (dbg-println :debug "pclass-ctor_" pclass-ctor_)
-            ;; add in details for the plant for primitive tasks...
-            ;;_ (dbg-println :debug "plant-details" pargs subtask pclass-ctor_ primitive?) ;;DEBUG
             details_ (plant-details ir pargs subtask_ pclass-ctor_ primitive?)
-            ;; OLD: label (name-with-argvals subtask)
             subtask-map (merge
                          (assoc
                           (dissoc subtask_ :pclass :pargs :arguments

                               (get-in ir [caller-pclass :fields (:field caller_) :initial]))
                             (if (= name 'this)
                               ;;Use the ancestry-path to resolve the pclass of the caller
                               (let [[this-hem
                                      parent-subtask_
                                      parent-hem
                                      parent-henpt] ancestry-path
                                     ;; parent-subtask_ (nth ancestry-path 1)
                                     ;; parent-hem (nth ancestry-path 2)
                                     ;; parent-henpt (nth ancestry-path 3)
                                     parent-hem-pclass (get-in parent-hem [:irks 0])
                                     ;; st 0
                                     ;; parent-subtask_ (get-in parent-hem [:subtasks st])

                                     _ (dbg-println :debug "RPC Recursing on ancestry-path"
                                         (mapv #(list (:uid %) (or (:label %) (:name %)))
                                           ancestry-path))
                                     _ (dbg-println :debug "parent-hem-pclass" parent-hem-pclass)
                                     ;; {:error :unresolved-pclass-ctor-need-ancestry-path}
                                     pc_ (resolve-plant-class
                                           ir parent-hem-pclass pargs parent-henpt parent-subtask_)

                                     ]

                                 ;; (dbg-println :debug "RPC this"
                                 ;;              (with-out-str (pprint ancestry-path)))
                                 ;; (dbg-println :debug "RPC parent-hem"

                       (do
                         (dbg-println :error "ERROR, not currently supported plant-fn type=" type)
                         nil))
        ]
    (dbg-println :trace "RPC pclass-ctor_" pclass-ctor_)
    pclass-ctor_))

;; name-with-argvals multi-methods --------------------------------------
