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.52 -r1.53
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	27 Apr 2015 15:28:21 -0000	1.52
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	30 Jun 2015 09:20:54 -0000	1.53
@@ -417,7 +417,7 @@
 
     @return cr item object
   } {
-    #my log "-- [self args]"
+    #my log "-- generic fetch_object [self args]"
     if {![::xotcl::Object isobject $object]} {
       # if the object does not yet exist, we have to create it
       my create $object
@@ -1501,7 +1501,7 @@
     {-initialize true}
   } {
     set serialized_object [ns_cache eval xotcl_object_cache $object {
-      #my log "--CACHE true fetch [self args]" 
+      #my log "--CACHE true fetch [self args], call shadowed method [self next]" 
       set loaded_from_db 1
       # Call the showdowed method with initializing turned off. We
       # want to store object before the after-load initialize in the