               (let [{:keys [ancestry-path]} subtask
                     subtask (assoc subtask
                                    :ancestry-path *htn-plan-ancestry*)]
-                (println "about to PHT" (:name subtask)) ;; DEBUG
+                (dbg-println :debug "about to PHT" (:name subtask)) ;; DEBUG
                 (plan-htn-task ir (update-htn-object! subtask))))))))))
 
 ;; pprint-htn-object multi-methods --------------------------------------

                             caller_ (get-in ir henpt-irks)
                             caller-pclass (first henpt-irks)]

                         ;;(println "ERROR, not currently supported plant-fn type=" type)
                         (if (or (= (:type caller_) :plant-fn-field)
                                 (and (= (:type caller_) :plant-fn-symbol)
                                      (= (:name caller_) 'this)))
                           (get-in ir [caller-pclass :fields (:field caller_) :initial])
                           (println "ERROR, Resolve plant-fn-symbol w/in scope of caller-pclass")))

                       :else
                       (do
                         (println "ERROR, not currently supported plant-fn type=" type)
                         nil))
        pclass-ctor_ (if (= (:type pclass-ctor_) :arg-reference)
                       (let [param (:name pclass-ctor_)]

                            (every? compatible?
                                    (map vector arguments (:arguments nonprimitive-task))))
                ;; DEBUG
                _ (dbg-println :debug "  FM NAME" name "NPT-NAME" (:name nonprimitive-task)
                           "ARGS" arguments "NTARGS" (:arguments nonprimitive-task)
                           "match?" match?)
                methods (if match? (conj methods method) methods)]
