            {:target (. js/document (getElementById "world-map-hover"))})
   (om/root render-events prog-history
            {:target (. js/document (getElementById "events"))})
-  (om/root render-clients prog-history
+  (om/root render-clients prog-curr
            {:target (. js/document (getElementById "controls-clients"))}))
 
 ; ------------------------------------------------

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

(defn prog-event [label f]
  (swap! prog-history #(let [ph (f %)]
                         (update-in ph [:prog-events]
                                    conj [(count (:prog-events ph))
                                          label
                                          {:prog-peers (:prog-peers ph)}]))))

(defn kv-server [server-addr & ports]
  (let [world (:world @prog-base)

             (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 [:kv-server server-addr port]
                           #(update-in % [:servers server-addr]
                                       conj port)))))
         (reset! done true))
    (wait-done done)))
