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.50.2.13 -r1.50.2.14
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	20 Aug 2014 11:53:39 -0000	1.50.2.13
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	1 Sep 2014 09:07:33 -0000	1.50.2.14
@@ -1616,7 +1616,9 @@
     return $r
   }
   CrCache::Item instproc save_new args {
+    set npv [my remove_non_persistent_vars]
     set item_id [next]
+    my set_non_persistent_vars $npv
     # the following approach will now work nicely, we would have to rename the object
     # caching this does not seem important here, the next fetch will cache it anyhow
     #ns_cache set xotcl_object_cache $item_id [::Serializer deepSerialize [self]]