         [server-state (assoc (dissoc m :pswd) :status :ok)]
         [server-state (assoc (dissoc m :pswd) :status :invalid)])
       [server-state (assoc (dissoc m :pswd) :status :invalid)])
+
     "realms-list"
     (if-let [{:keys [cur-user-realm cur-user]} m]
       (let [realm-keys (if (and (= cur-user-realm "_system")

    :update-user-realm
    [(assoc lane-state
       :cur-realm (:realm m)
       :cur-user-realm (:user-realm m)
       :cur-user (:user m))
     (assoc m :status :ok)]
    "lane-state"
    [lane-state (assoc m :status :ok :value lane-state)]
    "realms-list"
    (do (msg-put actx :server-state-ch
                 (assoc m :cur-user-realm (:cur-user-realm lane-state)
                        :cur-user (:cur-user lane-state)))
        [lane-state nil])
    nil))

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

                      :collsets {}}}})

(def initial-lane-state
  {:cur-realm "_lobby"
   :cur-realm-collset "default"
   :cur-realm-collset-coll "default"
   :cur-user-realm "_lobby"
   :cur-user "_anon"})

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

