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