Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	19 Sep 2007 13:56:47 -0000	1.4
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	20 Sep 2007 11:57:04 -0000	1.5
@@ -1183,7 +1183,7 @@
   }
   CrCache instproc delete {-item_id} {
     next
-    ns_cache flush xotcl_object_cache ::$item_id
+    ::xo::clusterwide ns_cache flush xotcl_object_cache ::$item_id
     # we should probably flush as well cached revisions
   }
 
@@ -1192,10 +1192,11 @@
   CrCache::Item instproc save args {
     set r [next]
     # cache only names with IDs
-    if {[regexp [[self class] set name_pattern] [self]]} {
-      #my log "--CACHE saving [self] in cache"
-      ns_cache set xotcl_object_cache [self] \
-	  [::Serializer deepSerialize [self]]
+    set obj [self]
+    if {[regexp [[self class] set name_pattern] $obj]} {
+      #my log "--CACHE saving $obj in cache"
+      ::xo::clusterwide ns_cache flush xotcl_object_cache $obj
+      ns_cache set xotcl_object_cache $obj [$obj serialize]
     }
     return $r
   }
@@ -1207,7 +1208,7 @@
     return $item_id
   }
   CrCache::Item instproc delete args {
-    ns_cache flush xotcl_object_cache [self]
+    ::xo::clusterwide ns_cache flush xotcl_object_cache [self]
     next
   }