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 -N -r1.43 -r1.44
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	2 Feb 2011 10:46:35 -0000	1.43
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	2 Feb 2011 11:05:09 -0000	1.44
@@ -1557,14 +1557,13 @@
     # similar mechanisms
     foreach x [my info vars __*] {if {[my array exists $x]} {my array unset $x} {my unset $x}}
   }
-  #::408415 (3014 bytes, flush)
   CrCache::Item instproc flush_from_cache_and_refresh {} {
     # cache only names with IDs
     set obj [self]
     set canonical_name ::[$obj item_id]
     ::xo::clusterwide ns_cache flush xotcl_object_cache $obj
     if {$obj eq $canonical_name} {
-      my log "--CACHE saving $obj in cache"
+      #my log "--CACHE saving $obj in cache"
       #
       # The object name is eq to the item_id; we assume, this is a
       # fully loaded object, containing all relevant instance