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.6 -r1.148.2.7
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	16 Apr 2019 17:45:13 -0000	1.148.2.6
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	23 Apr 2019 14:10:26 -0000	1.148.2.7
@@ -2564,8 +2564,10 @@
       set context_id [expr {[info exists :context_id] ? ${:context_id} : ""}]
     }
     [:info class] get_context package_id modifying_user modifying_ip
+    set title ${:object_title}
     ::xo::dc dml update_object {
       update acs_objects set
+         title          = :title,
          modifying_user = :modifying_user,
          modifying_ip   = :modifying_ip,
          context_id     = :context_id