                  (assoc  :curr-vertex v)))))
         :curr-vertex))
   (vertex-for-id
-    [_ id] (-> @state :vertices id))
+    [_ id] (get-in @state [:vertices id]))
   (vertices
     [_] (-> @state :vertices vals)))
 

              (loop [colls 0 sigs 0]
                (if (<= (+ colls sigs) max-ops)
                  (let [t (timeout max-t)
                        [[evt v ex] port] (alts! [ctrl t])]
                    (if (= port t)
                      (do (stop! _)
                          (execution-result :converged result colls sigs t0))

      (doseq [[a b] hierarchy]
        (connect-to! (verts a) (verts b) signal-forward nil))
      verts)))
