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

  specific port."
  ([port]
   (if (not @running?*)
     (let [port (if (nil? port) (+ (rand-int 50000) 2000) port)
           cmd (into-array String (concat [(SC-PATHS (@config* :os)) "-u" (str port)] (SC-ARGS (@config* :os))))
           sc-thread (Thread. #(external-booter cmd))]
       (.setDaemon sc-thread true)
       (log/debug "Booting SuperCollider server (scsynth)...")

(defn boot-internal
  ([] (boot-internal (+ (rand-int 50000) 2000)))
  ([port]
   (log/info "boot-internal: " port)
   (if (not @running?*)
     (let [sc-thread (Thread. #(internal-booter port))]
       (.setDaemon sc-thread true)
