 
 (defn- publish-inner-child! [sp child-sp]
   (connect-and-watch! sp child-sp (partial publish-child! sp false))
-  (sg/status-increased! sp child-sp))
+  (swap! (-> sp :config :status-increases) conj [sp child-sp])
+  #_ (sg/status-increased! sp child-sp))
 
 (defn publish-child! [sp constituent? child-sp]
   (when child-sp			

           (sg/best-leaf-operator
            (:choice-fn config)
            (case (:search-strategy config) :ao true :al-global false)
            (fn [s] (expand! s) (sg/summaries-decreased! [s])))
           extract-action))))



(ns angelic.search.implicit.dash-astar
  (:require [angelic.util :as util]
	    [angelic.util.channel :as channel]
            [angelic.search.summary :as summary]            
