   (or (node-live? n)
       (node-paused? n)))
 
-(defn- ensure-node-active!
-  ([node] (ensure-node-active! ""))
+(defn ensure-node-active!
+  ([node] (ensure-node-active! node ""))
   ([node err-msg]
      (when (node? node)
        (node-block-until-ready node))

  "Set control values for a node."
  [node name-values]
  (ensure-connected!)
  (ensure-node-active! node "controlling node")
  (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 (node-status n))))

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

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

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