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.76.2.12 -r1.76.2.13
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	23 Apr 2019 17:25:58 -0000	1.76.2.12
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	24 Apr 2019 12:22:44 -0000	1.76.2.13
@@ -1025,7 +1025,8 @@
         from acs_objects where object_id = :revision_id
       }
       set :last_modified $last_modified
-      if {$context_id != ${:context_id}} {
+      if {[info exists :context_id] &&
+          $context_id != ${:context_id}} {
         set context_id ${:context_id}
         ::xo::dc dml update_context {
           update acs_objects