                 (log/i "openWebSocket")
                 (let [web-socket (proxy [NanoWSD$WebSocket] [handshake]
                                    (onOpen []
-                                     (log/i "onOpen"))
+                                     (log/i "onOpen")
+                                     (swap! wsd-sessions :sessiond handshake))
                                    (onClose [code, reason, initiated-by-remote]
                                      (log/i "onClose"))
                                    (onMessage [message]

    (log/i "staring httpd server")
    (.start httpd)
    (log/i "starting wsd server")
    (.start wsd)
    (neko.debug/keep-screen-on this)
    (on-ui
      (set-content-view! (*a)

                                   (onPong [pong]
                                     (log/i "onPong"))
                                   (onException [exception]
                                     (log/i "onException")
                                     (log/i exception)
                                     ))]
                  web-socket)
                )
              )]
    wsd
