     i-name))
 
 (defn remove-instrument [i-name]
-  (dosync (alter instruments* dissoc i-name)))
+  (dosync (alter instruments* dissoc (name i-name)))
+  (event :inst-removed :inst-name i-name))
 
 (defn clear-instruments []
   (dosync (ref-set instruments* {})))

(defonce mixer-id*     (ref nil))
(defonce fx-group*     (ref nil))
(defonce record-group* (ref nil))
(defonce MIXER-BUS 49)

(def RIG-BOOT-DEPS [:server-ready :studio-setup-completed])

(defn rig-booted? []
  (deps-satisfied? RIG-BOOT-DEPS))

                              :name sname#
                              :ugens ugens#
                              :sdef sdef#
                              :group igroup#
                              :mixer imixer#
                              :volume (atom DEFAULT-VOLUME)
                              :pan (atom DEFAULT-PAN)
                              :out-bus MIXER-BUS
                              :fx-chain []
                              :player player#
