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 -N -r1.127 -r1.128
--- openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	24 Aug 2018 10:16:10 -0000	1.127
+++ openacs-4/packages/acs-tcl/tcl/site-nodes-procs.tcl	29 Aug 2018 11:40:40 -0000	1.128
@@ -1458,7 +1458,7 @@
                     }]]
                     foreach entry $tree {
                         lassign $entry url node_id object_id
-                        foreach key [list p-$node_id url-$node_id urls-$object_id] {
+                        foreach key [list $node_id url-$node_id urls-$object_id] {
                             ::acs::site_nodes_cache flush -partition_key $node_id $key
                         }
                         :flush_pattern -partition_key $node_id get_children-$node_id-*