   "Set control values for a node."
   [node name-values]
   (ensure-connected!)
-  (ensure-node-active! node "controlling node")
+  (ensure-node-active! node (str "controlling the following values: " name-values ))
   (apply snd "/n_set" (to-sc-id node) (floatify (stringify (idify name-values))))
   node)
 

  "Returns true if n is a running synth node."
  [n]
  (and (node? n)
       (= :live @(:status n))))

(defn node-paused?
  "Returns true if n is a paused synth node."
  [n]
  (and (node? n)
       (= :paused @(:status n))))

(defn node-loading?
  "Returns true if n is a loading synth node."
  [n]
  (and (node? n) (= :loading @(:status n))))

(defn node-active?
  "Returns true if n is an active synth node."

   *block-node-until-ready?* to false."
  [node]
  (when *block-node-until-ready?*
    (deref! (:loaded? node) (str
                             "blocking until the following node has completed loading: "
                             (with-out-str (pr node))))))

(extend java.lang.Long
  ISynthNode
