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.50 -r1.76.2.51
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	6 Apr 2021 17:56:15 -0000	1.76.2.50
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	12 Jun 2021 18:00:34 -0000	1.76.2.51
@@ -878,7 +878,25 @@
       set sql "update [$domain table_name] \
                 set [$slot column_name] = :value \
         where [$domain id_column] = $revision_id"
-      ::xo::dc dml update_attribute_from_slot $sql
+      ::xo::dc dml update_attribute_from_slot [subst {
+        update [$domain table_name]
+        set [$slot column_name] = :value
+        where [$domain id_column] = :revision_id
+      }]
+      #
+      # Probably we should call here update_last_modified, but for
+      # that we would need the modifying_user and the modifying IP
+      # address.
+      #
+      # ::xo::db::sql::acs_object update_last_modified \
+      #      -object_id $revision_id \
+      #      -modifying_user ${:publish_status} \
+      #      -modifying_ip ...
+
+      ::xo::dc dml update_attribute_from_slot_last_modified {
+        update acs_objects set last_modified = now()
+        where object_id = :revision_id
+      }
     }
   } else {
     #
@@ -958,6 +976,10 @@
         where [$domain id_column] = $revision_id"
         ::xo::dc dml $att $sql
       }
+      ::xo::dc dml update_attribute_from_slot_last_modified {
+        update acs_objects set last_modified = now()
+        where object_id = :revision_id
+      }      
     }
   }