       {:type     :group
        :id       id
        :name     (get-in @active-synth-nodes* [id :group] "Unknown Group")
-       :children (doall (map (fn [i] (parse-node-tree-helper ctls?)) (range n-children)))})))
+       :children (doall (map (fn [i] (parse-node-tree-helper ctls?))
+                             (range n-children)))})))
 
 (defn- parse-node-tree
   [data]

  (ensure-connected!)
  (let [group-id (to-synth-id group)
        node-id (to-synth-id node)]
  (snd "/g_tail" group-id node-id)))

(defn- group-clear*
  "Free all child synth nodes in a group."

      (node-map-controls    [this names-busses]
        "Connect a node's controls to a control bus.")
      (node-map-n-controls  [this start-control start-bus n]
        "Connect N controls of a node to a set of sequential control
        busses, starting at the given control name."))

    (defprotocol IKillable
      (kill* [this] "Kill a synth element (node, or group, or ...)."))
