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.16 -r1.93.2.17
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	10 Jan 2017 12:53:15 -0000	1.93.2.16
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	10 Jan 2017 12:59:09 -0000	1.93.2.17
@@ -161,9 +161,7 @@
     }
 
     # delete nodes in reverse order, starting from leaves
-    set i [expr {[llength $nodes_to_delete] - 1}]
-    while {$i >= 0} {
-        set node_id [lindex $nodes_to_delete $i]
+    foreach node_id [lreverse $nodes_to_delete] {
         # first delete package_id under this node...
         set package_id [site_node::get_object_id \
                             -node_id $node_id]