Index: openacs-4/packages/xowiki/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v
diff -u -r1.88 -r1.89
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	12 Sep 2007 18:56:10 -0000	1.88
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	20 Sep 2007 12:19:37 -0000	1.89
@@ -863,13 +863,13 @@
     my instvar folder_id id
     if {$name eq "::$folder_id"} {
       #my log "--D deleting folder object ::$folder_id"
-      ns_cache flush xotcl_object_cache ::$folder_id
-      ns_cache flush xotcl_object_type_cache item_id-of-$folder_id
-      ns_cache flush xotcl_object_type_cache root_folder-$id
+      ::xo::clusterwide ns_cache flush xotcl_object_cache ::$folder_id
+      ::xo::clusterwide ns_cache flush xotcl_object_type_cache item_id-of-$folder_id
+      ::xo::clusterwide ns_cache flush xotcl_object_type_cache root_folder-$id
       ::$folder_id destroy
     }
     set key link-*-$name-$folder_id
-    foreach n [ns_cache names xowiki_cache $key] {ns_cache flush xowiki_cache $n}
+    foreach n [ns_cache names xowiki_cache $key] {::xo::clusterwide ns_cache flush xowiki_cache $n}
   }
 
   Package instproc delete {-item_id -name} {