 
 ; -------------------------------------------------------------------
 
-(def curr-world (atom nil)) ; { :world => world-actx
-                            ;   :net-listen-ch => ch
-                            ;   :net-connect-ch => ch }
+(def curr-world (atom {})) ; { :world => world-actx
+                           ;   :net-listen-ch => ch
+                           ;   :net-connect-ch => ch }
 
 ; -------------------------------------------------------------------
 

              prog-js (str "with (cbfg.world.t1) {" prog "}")
              prog-res (try (js/eval prog-js) (catch js/Object ex ex))]
          (println :prog-res prog-res)
          (<! prog-ch)
          (close! event-ch)
          (recur (inc num-worlds)))))))

                  :gen-id gen-id})]
        (reset! curr-world {:world world
                            :net-listen-ch (achan-buf world 10)
                            :net-connect-ch (achan-buf world 10)
                            :servers {}
                            :clients {}})
        (process-events vis event-delay event-ch step-ch render-ch)
        (make-net world
                  (:net-listen-ch @curr-world)
