         data (connfn {:uid uid})
         name-uuids (or (get-adb uid-name) [])]
     (infof ":SRV :open %s" uid)
-    (update-adb [uuid :ws] ws, [uuid :name] uid-name
+    (update-adb :ws ws
+                [ws :uuid] uuid
+                [uuid :ws] ws, [uuid :name] uid-name
                 [uuid :rcvcnt] 0, [uuid :sntcnt] 0
-                [ws :uuid] uuid
                 uid-name (conj name-uuids uuid))
-    (srv/send-msg ws {:op :register :data data})))
+    (srv/send-msg ws {:op :register :payload data})))
 
 
 (defn server-dispatch [ch op payload]

(defonce app-db (atom {:rcvcnt 0 :sntcnt 0}))

(defn update-adb
  ([] (com/update-db app-db {:rcvcnt 0 :sntcnt 0}))
  ([keypath vorf]
   (com/update-db app-db keypath vorf))
  ([kp1 vof1 kp2 vof2 & kps-vs]
   (apply com/update-db app-db kp1 vof1 kp2 vof2 kps-vs)))

(defn get-adb
  ([] (com/get-db app-db []))
  ([key-path] (com/get-db app-db key-path)))




   [aerobio.htseq.termseq :as httm]
   [aerobio.htseq.tnseq   :as htts]
   [aerobio.htseq.wgseq   :as htws]
   ;; Validation
   [aerobio.validate.all :as va]
   ;; Program graph construction, execution, delivery
   [aerobio.pgmgraph :as pg]
   ;; REST actions
