          (log/debug "Booting SuperCollider internal server (scsynth)...")
          (.start sc-thread)
          (dosync (ref-set server-thread* sc-thread))
-         (connect-internal)
+         (connect)
          :booting))))
 
 (defn- sc-log 

(defn internal-booter [port]
  (reset! running?* true)
  (log/debug "booting internal audio server...")
  (let [opts (sc-jna-startoptions-byref)]
    (set! (. opts udp-port-num) port)
    (set! (. opts tcp-port-num) -1)
    (set! (. opts verbosity) 1)

      (let [buffer (java.nio.ByteBuffer/allocate 8129)]
        (World_SendPacket @world* (.limit buffer) buffer
                          (callback reply-cb (fn [addr buf size] (println "reply!"))))
      (nil? @server*) (throw (Exception. "Not connected to a SuperCollider server.")))))

(defmacro at
  "Schedule the messages sent in body at a single time."
