     (connect-subsuming! ret subsuming-sp)
     (summaries/connect! ret (tree-summarizer left-sp) false)
     (connect-and-watch! ret right-stub 
-      #(add-child-sp! ret (make-pair-subproblem subsuming-sp ret left-sp %)))
+      #(set-stub-output! ret (make-pair-subproblem subsuming-sp ret left-sp %)))
     ret))
 
 (defn- make-pair-stub1 [subsuming-sp left-stub right-name right-stub-fn]

    (add-watcher! watch
      (fn [o] ;        (println ret o)
        (summaries/summary-changed-local! ss)
        (connect-and-watch! ret (stub-f o) #(add-child-sp! ret %))
        (summaries/summary-changed! ret))) ;; TODO: efficiency?
    
    ret))

                                    (min (subsuming-bound s) (second @state)) s)))   
         Evaluable
         (evaluate! [s]
;                    (println "evals" s)
           (assert (not (= :go @state)))
           (let [ready? (= :ready @state)]
             (if-let [[out-set reward :as op] (if ready? (fs/apply-opt function-set inp-set) @state)]
