             agw (make-ago-world num-worlds)
             get-agw (fn [] agw)
             event-ch (ago-chan agw)
-            event-run-ch (chan)
+            event-run-ch (ago-chan agw)
             make-timeout-ch (fn [actx delay] (ago-timeout agw delay))
             ; Init the top actx manually to avoid act recursion.
             w [{:gen-id gen-id


; -------------------------------------------------------------------

(defn render-prog-frame [prog-frame owner]
  (apply dom/ul nil
         (map (fn [[k v]] (dom/li nil (str k ":" (count v))))
              prog-frame)))

(defn on-prog-frame-restore [ts label prog-frame]
  ; Time-travel to the past if snapshot is available.

    ; TODO: This prog-frame deref is strange, as it turned into a
    ; om.core/MapCursor somehow during the event handler rather
    ; an the expected prog-frame dict.
    (reset! prog-curr @prog-frame)
    (cbfg.world.base/render-client-hist (:reqs @prog-curr))))

; -------------------------------------------------------------------

(defn render-prog-frame [prog-frame owner]
  (apply dom/ul nil
         (map (fn [[k v]] (dom/li nil (str k ":" (count v))))
              prog-frame)))

(defn render-events [app owner]
  (apply dom/ul nil
