 
 (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)]
+        default-coll (make-coll actx 0 ["_lobby" "default" "default"]
+                                kvs-mgr-ch)]
     {:rev 0
      :realms {"_system" {:rev 0
                          :users {"admin" {:rev 0 :pswd "password"}}

                                             :colls])]
          (if (not (get (:key m) colls))
            (let [nrev (inc (:rev server-state))
                  coll (make-coll actx nrev (:key m) (:kvs-mgr-ch server-state))]
              ; TODO: audit log on success and failure.
              [(-> server-state
                   (assoc-in [:realms (:cur-realm m)

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

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

