 
 
 (defn now [] (java.util.Date.))
+
+
+(defn read-string-safe [s]
+  (binding [*read-eval* false]
+    (read-string s)))
 
 
 (defn client-connect!

                                          (log "closed in out" client-id)))
                      (on-receive channel (fn [data]
                                            (log "server received data:" url data)
                                            (async/put! in (read-string data)))))))]
    {:new-conns conns
     :channel-hub channel-hub
     :url url

                             (async/put! opener [in out])
                             (async/close! opener))
                     :text (fn [ws ms]
                             (let [m (read-string-safe ms)]
                               (log "client received msg from:" url m)
                               (async/put! in m)))
                     :close (fn [ws code reason]
