   (log/debug "Connecting to internal SuperCollider server")
   (let [send-fn (fn [peer-obj buffer]
                   (scsynth-send @sc-world* buffer))
-        peer (assoc (osc-peer false false) :send-fn send-fn)]
+        peer    (assoc (osc-peer false false) :send-fn send-fn)]
     (dosync (ref-set server-osc-peer* peer))
     (setup-connect-handlers)
     (server-snd "/status")))

           system-outs    (re-seq #"system:playback_[0-9]*" port-list)
           interface-ins  (re-seq #"system:AC[0-9]*_dev[0-9]*_.*In.*" port-list)
           interface-outs (re-seq #"system:AP[0-9]*_dev[0-9]*_LineOut.*" port-list)
           connections (partition 2 (concat
                                     (interleave sc-outs system-outs)
                                     (interleave sc-outs interface-outs)
                                     (interleave system-ins sc-ins)
                                     (interleave interface-ins sc-ins)))]
       (doseq [[src dest] connections]
         (logged-sh "jack_connect" src dest)
         (log/info "jack_connect " src " " dest)))))

  [args]
  (when (not= 1 (:realtime? args))
    (throw (Exception. "Non-realtime server mode not currently supported. Patches accepted - please contact the mailing list.")))
  (let [udp?        (:udp? args)
        port        (:port args)
        ugens-paths (or (:ugens-paths args) [])
        args        (select-keys args (keys SC-ARG-INFO))
        args        (dissoc args :udp? :port :realtime? :nrt-cmd-filename :nrt-output-filename :nrt-output-header-format :nrt-output-sample-format)
        port-arg    (if (= 1 udp?)
                      ["-u" port]
                      ["-t" port])
        ugens-paths (map resolve-tilde-path ugens-paths)
        ugens-paths (filter dir-exists? ugens-paths)
        ugens-paths (apply str (interpose ":" ugens-paths))
        args        (if (empty? ugens-paths)
                      (dissoc args :ugens-paths)
                      (assoc args :ugens-paths ugens-paths))
        arg-list    (reduce
                     (fn [res [flag val]] (if val
                                           (concat res [(find-sc-arg-flag! flag) val])
                                           res))
                     []
                     args)]
    (map str (concat port-arg arg-list))))

(defn- sc-command
