 
           ;; Inactive bottom-up var -- needs to be assigned.  
           (util/find-first #(env/get-var s (free-var %)) (map first aa-parent-edges))
-            (activation-actions s child-var-map x)
+            (activation-actions child-var-map x)
 
           ;; Active top-down var -- add actions
           (util/find-first #(not (env/get-var s (free-var %))) (map second na-tuples))  

    (ASPlanEnv 
     (expand-initial-state (env/initial-state sas-problem) child-var-map (goal-action dtgs))
     (fn asplan-actions [s]
       (let [[aa-vars na-vars] (util/separate #(env/get-var s (action-var %)) vars)
             aa-parent-edges   (for [av aa-vars
                                      :let [pm (:precond-map (env/get-var s (action-var av)))]

     {(action-var evar) factored-primitive}
     reward)))


(defn make-set-parent-var-action [p-var c-var]
  (env/FactoredPrimitive 
