   (glog/info logger (str "Session ID: "   (session-id)))
   (glog/info logger (str "Session Name: " (session-name))))
 
-(defmethod message "ping" [msg] (respond-to msg true))
+(defmethod message "ping" [msg] (respond-to msg {:pong true}))
 
 (def ^:dynamic *eval-js* js/eval)
 

  (cljs.repl/-tear-down re)

  (connections-available re)

  (evaluate re "33")

  (evaluate re "setTimeout(function() {cljs.core.prn(\"hey hey\")}, 1000);")


  (.isReady channel)

  (ping ( (vals @*connections*))

        )
  (swap! *connections* dissoc "99785176-1793-4814-938a-93bf071acd2f")

  (swap! scratch dissoc :print-msg)
  scratch
  *connections*
  (deref
