 
   (connections-available re)
 
-  (evaluate re "44")
+  (evaluate re "47")
 
   (negotiate-id (:ring-request @scratch) @*connections*)
 

         (fnil conj []) data))

(defn http-polling-connect [ring-request]
  (let [sess-id (-> ring-request :query-string parse-query-string :fwsid)]
    ;; new connection create the connection
    (if-not (get @*connections* sess-id)
      (let [conn (create-connection! ring-request
                                     {:type :http-polling
                                      :send-fn http-polling-send})]

  (conns*))

(defn focus* [session-name]
  (let [names (map :session-name (connections-available cljs.repl/*repl-env*))
        session-name (name session-name)]
    (if ((set names) session-name)
      (str "Focused On: " (reset! (:focus-session-name cljs.repl/*repl-env*) session-name))
