                               (when-let [client-req-ch
                                          (get-in @prog-curr
                                                  [:clients (:client req) :req-ch])]
-                                (prog-event [:req] #(assoc-in % [:reqs ts] [req nil]))
+                                (prog-event world [:req] #(assoc-in % [:reqs ts] [req nil]))
                                 (cbfg.world.base/render-client-hist (:reqs @prog-curr))
                                 (aput main-loop client-req-ch req)
                                 (recur (inc num-requests) num-responses))))
-                          (do (prog-event [:res] #(update-in % [:reqs (:opaque v) 1]
-                                                             conj [ts v]))
+                          (do (prog-event world [:res] #(update-in % [:reqs (:opaque v) 1]
+                                                                   conj [ts v]))
                               (cbfg.world.base/render-client-hist (:reqs @prog-curr))
                               (recur num-requests (inc num-responses)))))))
           (go-loop [] ; Process expand/collapse UI events.

         (let [req-ch (cbfg.world.net/client-loop world (:net-connect-ch @prog-base)
                                                  server-addr server-port
                                                  client-addr (:res-ch @prog-base))]
           (prog-event [:kv-client client-addr server-addr server-port]
                       #(assoc-in % [:clients client-addr]
                                  {:client-addr client-addr
                                   :server-addr server-addr

                   [server-addr port listen-result-ch])
             (when-let [[accept-ch close-accept-ch] (atake server-init listen-result-ch)]
               (cbfg.world.net/server-accept-loop world accept-ch close-accept-ch)
               (prog-event world [:kv-server server-addr port]
                           #(update-in % [:servers server-addr]
                                       conj port)))))
         (reset! done true))
