Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v
diff -u -N -r1.148.2.7 -r1.148.2.8
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	23 Apr 2019 14:10:26 -0000	1.148.2.7
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	23 Apr 2019 14:28:38 -0000	1.148.2.8
@@ -2573,6 +2573,14 @@
          context_id     = :context_id
       where object_id = :object_id
     }
+    # Make sure object memory image reflects db values
+    foreach att {modifying_user modifying_ip context_id} {
+      set :${att} [set $att]
+    }
+    set :last_modified [::xo::dc get_value get_last_modified {
+      select last_modified from acs_objects
+      where object_id = :object_id
+    }]
   }
 
   ::xo::db::Object ad_instproc delete {} {