 		     good-refs (filter #(>= (search/upper-reward-bound %) threshold) refs)
 		     sols      (filter identity (map search/extract-a-solution good-refs))
 		     good-sols (filter #(>= (second %) threshold) sols)]
+;		 (println (search/node-str next))
 		 (if good-sols  ; Found a good enough primitive refinement
 		     (util/first-maximal-element second good-sols)
 		   (do
                      (if-let [great-refs (filter #(>= (search/lower-reward-bound %) threshold) good-refs)]
 		         (let [best-ref (util/first-maximal-element search/lower-reward-bound great-refs)]
+			   (println "committing to " (search/node-str best-ref))
 			   (queues/pq-remove-all! pq)
 			   (queues/pq-add! pq best-ref (priority-fn best-ref)))
 		       (doseq [ref good-refs]


; TODO: this priority fn won't work well on hard domains -- need to take portion with
 ; non-inf pessimistic value into account ...
(defn ahss-search "Pass a *finite* threshold"
  ([node] (ahss-search node (- Double/MAX_VALUE)))
  ([node threshold] (ahss-search node threshold
		      (fn ahss-priority-fn [node]
			(- 0 
