   (snd \"/foo\" 1 2.0 \"eggs\")"
   [path & args]
   (when-not (connected?)
-    (throw (Exception. "Unable to send messages to an disconnected server. Please boot or connect to a server.")))
+    (throw (Exception. "Unable to send messages to a disconnected server. Please boot or connect to a server.")))
   (apply server-snd path args))
 
 (defn recv

  []
  @server-status*)

(defn connected? []
  (= :connected (server-status)))

(defn disconnected? []
  (= :disconnected (server-status)))

(defmacro at

  the incoming event info."
  ([path] (recv path nil))
  ([path matcher-fn]
     (when-not (connected?)
       (throw (Exception. "Unable to receive messages from a disconnected server. Please boot or connect to a server.")))
     (server-recv path matcher-fn)))

(defn connect-external-server
