   "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)
 

  [node err-msg]
  (let [full-err-msg (str "inactive node modification attempted for node "
                          (with-out-str (pr node))
                          " with state "
                          @(:status node)
                          (when-not (empty? err-msg)
                            (str " whilst " err-msg)))]
    (condp = *inactive-node-modification-error*

   *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
