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

    (cond 
      (= ::external (type @server*)) (osc-send-msg @server* 
                                                   (apply osc-msg path (osc-type-tag args) args))
      (= ::internal (type @server*)) (event ::send-osc-message (apply osc-msg path (osc-type-tag args) args))))

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

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

(defn- sc-log 
