 
 (def rq-handlers
   {"authenticate" rq-authenticate
-   "lane-state" #(fwd %1 :lane-state-ch %2)
-   "realms-list" #(fwd %1 :lane-state-ch %2)
+   "lane-state" #(fwd-req %1 :lane-state-ch %2)
+   "realms-list" #(fwd-req %1 :lane-state-ch %2)
    "add" cbfg.world.base/example-add
    "sub" cbfg.world.base/example-add
    "count" cbfg.world.base/example-count


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

(defn fwd [actx ch-key m]
  (act fwd actx
       (areq fwd (ch-key m) m)))

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


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

