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.20 -r1.21
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	21 Apr 2008 10:28:07 -0000	1.20
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	16 Sep 2008 11:56:17 -0000	1.21
@@ -1268,7 +1268,13 @@
     if {[regexp [[self class] set name_pattern] $obj]} {
       #my log "--CACHE saving $obj in cache"
       ::xo::clusterwide ns_cache flush xotcl_object_cache $obj
+      # We do not want to cache per object mixins for the time being
+      # (some classes might be volatile). So save mixin-list, cache
+      # and resore them later for the current session.
+      set mixins [$obj info mixin]
+      $obj mixin [list]
       ns_cache set xotcl_object_cache $obj [$obj serialize]
+      $obj mixin $mixins
     }
   }
   CrCache::Item instproc update_attribute_from_slot args {