Index: openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl,v diff -u -r1.93.2.15 -r1.93.2.16 --- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl 10 Jan 2017 08:40:27 -0000 1.93.2.15 +++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl 10 Jan 2017 12:53:15 -0000 1.93.2.16 @@ -155,9 +155,9 @@ set parent_id [lindex $queue 0] lappend nodes_to_delete $parent_id set queue [lrange $queue 1 end] - set queue [concat $queue [site_node::get_children \ - -element "node_id" \ - -node_id $parent_id]] + lappend queue {*}[site_node::get_children \ + -element "node_id" \ + -node_id $parent_id] } # delete nodes in reverse order, starting from leaves