   (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)
 

                       (assoc comm :respond respond)))
    (when @has-messages (long-poll-send comm-atom nil))))

;; TODO this is an abstract part of sending a message and getting a
;; response
(defn ping [conn]
  (let [prom (promise)
        uuid (str (java.util.UUID/randomUUID))
        listener (fn listen [msg]
                   (when (= uuid (:uuid msg))
                     (deliver prom true)
                     (remove-listener listen)))]
    (add-listener listener)
    ((:send-fn conn) conn (json/write-str {:uuid uuid :op :ping}))
    prom))

(defn http-long-polling-connect [ring-request respond raise]

                     v))]
      (when-let [out (:out result)]
        (when (not (string/blank? out))
          (repl-env-print repl-env :out [(string/trim-newline out)])))
      result)))

(defn run-default-server [options connections]
