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.71 -r1.72
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	29 Jun 2018 15:24:04 -0000	1.71
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	29 Jun 2018 16:06:30 -0000	1.72
@@ -1603,7 +1603,7 @@
       # want to store object before the after-load initialize in the
       # cache to save storage.
       set o [next -item_id $item_id -revision_id $revision_id -object $object -initialize 0]
-      set result [::Serializer deepSerialize $o]
+      return [::Serializer deepSerialize $o]
     }]
     # :log "--CACHE: [self args], created [info exists created] o [info exists o]"
     if {[info exists loaded_from_db]} {
@@ -1727,7 +1727,6 @@
       set npv [$obj remove_non_persistent_vars]
       ::xo::xotcl_object_cache set [string trimleft $obj :] [$obj serialize]
       $obj set_non_persistent_vars $npv
-      #$obj set __cached_object 1
       $obj mixin $mixins
     } else {
       #