 (defn- sc-command
   "Creates a string array representing the sc command to execute in an
   external process (typically with #'external-booter)"
-  [port opts]
-  (into-array String (cons (or (config-get :sc-path) (find-sc-path)) (scsynth-arglist (merge-sc-args opts {:port port})))))
+  [opts]
+  (into-array String (cons (or (config-get :sc-path) (find-sc-path)) (scsynth-arglist opts))))
 
 (defn- boot-external-server
   "Boot the audio server in an external process and tell it to listen on


(defn- internal-booter
  "Fn to actually boot internal server. Typically called within a thread."
  []
  (log/info "booting internal audio server")
  (on-deps :internal-server-booted ::connect-internal connect-internal)
  (let [server (scsynth osc-msg-decoder)]
    (dosync (ref-set sc-world* server))
    (scsynth-listen-udp server 57110)
    (log/info "The internal scsynth server has booted...")
    (satisfy-deps :internal-server-booted)


       (let [port (if (nil? port) (+ (rand-int 50000) 2000) port)]
         (case connection-type
           :internal (boot-internal-server opts)
           :external (boot-external-server port opts))
         (wait-until-deps-satisfied :server-ready)))
     (print-ascii-art-overtone-logo
