 (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

  ([port opts]
     (when-not (= :connected @connection-status*)
       (log/debug "booting external server")
       (let [cmd       (sc-command port opts)
             sc-thread (if (windows-os?)
                         (Thread. #(external-booter cmd (windows-sc-path)))
                         (Thread. #(external-booter cmd)))]

         (println "--> Booting external SuperCollider server...")
         (log/debug (str "Booting SuperCollider server (scsynth) with cmd: " (apply str (interleave cmd (repeat " ")))))
         (.start sc-thread)
         (dosync (ref-set server-thread* sc-thread)
                 (alter connection-info* assoc :opts full-opts))
         (connect "127.0.0.1" port)
         :booting))))

