             (do
               (log/error "TBD: :else")
               []))]
-      (println "HTN-METHODS " (with-out-str (pprint methods)))
+      (dbg-println :debug "HTN-METHODS " (with-out-str (pprint methods)))
       methods)))
 
 

                                       (dissoc subtask_
                                               :ancestry-path :task-expansions))))
            ;; add in details for the plant for primitive tasks...
            ;;_ (println "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

            (if-not (empty? out-pclass)
              out-pclass
              (do
                (dbg-println :debug "NO CANDIDATES!") ;; DEBUG
                []
                )
              )))
        (let [pc-methods (get htn-methods pc)
              ms (keys pc-methods)
              _ (dbg-println :debug "  FCM PC" pc) ;; DEBUG
              matches
              (loop [matches [] m (first ms) moar (rest ms)]
                (dbg-println :debug "    FCM METHOD" m) ;; DEBUG
                (if-not m
                  matches
                  (let [method (get pc-methods m)
                        npt-name (get-in method [:nonprimitive-task :name])
                        ;; npt-args (get-in method [:nonprimitive-task :arguments])
                        ;; _ (dbg-println :debug "FCM ARGUMENTS" arguments
                        ;;     "NPT-ARGS" npt-args
                        ;;     "MATCH?" (= arguments npt-args))
                        match (if (= npt-name name)
