         [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")

                      :collsets {}}}})

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

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


                                (assoc m :status :ok))))
        [server-state nil])
      [server-state (assoc m :status :not-authenticated)])

    nil))

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