               "_lobby" {:rev 0
                         :users {"_anon" {:rev 0 :pswd ""}}
                         :collsets {"default" {:rev 0
-                                              :colls {"default" c}}}}}}))
+                                              :colls {"default" default-coll}}}}}
+     :kvs-mgr-ch kvs-mgr-ch}))
 
 (defn server-handler [actx server-state m]
   (case (:op m)

            [cbfg.act-misc :refer [state-loop msg-req msg-put msg-put-res]]
            [cbfg.vis :refer [get-el-value get-el-checked get-el-className get-els]]
            [cbfg.fence]
            [cbfg.world.t1 :refer [prog-base-now prog-curr-now prog-evt
                                   wait-done addr-override-xy]]
            [cbfg.world.base]

(defn coll-handler [actx coll-state m]
  [coll-state nil])

(defn make-coll [actx rev name kvs-mgr-ch]
  (let [coll-ch (achan actx)]
    (state-loop actx [:coll name] coll-handler {})
    {:rev rev
     :name name
     :coll-ch coll-ch
     :kvs-mgr-ch kvs-mgr-ch}))

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

(defn make-initial-server-state [actx]
  (let [kvs-mgr-ch (cbfg.kvs/make-kvs-mgr actx)
        default-coll (make-coll actx 0 "default" kvs-mgr-ch)]
    {:rev 0
     :realms {"_system" {:rev 0
                         :users {"admin" {:rev 0 :pswd "password"}}
