   groups."
   [group]
   (ensure-connected!)
-  (ensure-node-active! group "Attempting to deep clear a node that has been destroyed.")
+  (ensure-node-active! group "deep clearing node")
   (snd "/g_deepFree" (to-sc-id group))
   group)
 

      (node-paused? n)))

(defn- ensure-node-active!
  ([node] (ensure-node-active! "Trying to modify an inactive node."))
  ([node err-msg]
     (when (node? node)
       (node-block-until-ready node))

  "Connect a node's controls to a control bus."
  [node names-busses]
  (ensure-connected!)
  (ensure-node-active! node "mapping controls to a bus for node")

  (let [node-id      (to-sc-id node)
        names-busses (-> names-busses stringify idify)]
