                                              :colls])]
           (if (not (get (:key m) colls))
             (let [nrev (inc (:rev server-state))
-                  coll (make-coll actx nrev (:key m))]
+                  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)

            [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]

              "_lobby" {:rev 0
                        :users {"_anon" {:rev 0 :pswd ""}}
                        :collsets {"default" {:rev 0
                                              :colls {"default" default-coll}}}}}
     :kvs-mgr-ch kvs-mgr-ch}))

(defn server-handler [actx server-state m]
  (case (:op m)
