 
           ;; Inactive precondition -- needs to be assigned.  
           (util/find-first #(env/get-var s (free-var %)) (keys reduced-pm))
-            (for [a (activation-actions s child-var-map x)]
+            (for [a (activation-actions child-var-map x)]
               [a this])
 
           ;; Active top-down var -- add actions

            eval true
            false)
          (can-use-next? hierarchy effect-var eval p (env/get-var s p))))
      ((util/safe-get hierarchy :child-var-map) effect-var)))))
; Can return either a state where precondition accomplished, or 
; there exist a chain of actions (posisbly empy) leading to a precondition assigned
; outside the context of this precond.  
(comment
(defn make-fire-action-hla [hierarchy var action]
  (assert (= var (key (util/safe-singleton (:effect-map action)))))
  (let [name [:fire var]
