Index: openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl,v
diff -u -r1.68.2.20 -r1.68.2.21
--- openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl	1 Feb 2022 13:17:36 -0000	1.68.2.20
+++ openacs-4/packages/acs-lang/tcl/lang-message-procs.tcl	1 Feb 2022 13:23:08 -0000	1.68.2.21
@@ -197,7 +197,7 @@
     # Build up an array of columns to set
     array set cols [list]
     if { $update_sync_p } {
-        set cols(sync_time) [db_map sync_time]
+        set cols(sync_time) current_timestamp
     } else {
         set cols(sync_time) "null"
     }
@@ -554,10 +554,8 @@
         lappend set_clauses "$name = :$name"
         set $name $edit_array($name)
     }
-    if { $update_sync_p } {
-        if { ![info exists edit_array(sync_time)] } {
-            lappend set_clauses [db_map set_sync_time_now]
-        }
+    if { $update_sync_p && ![info exists edit_array(sync_time)] } {
+        lappend set_clauses {sync_time = current_timestamp}
     }
 
     if { [llength $set_clauses] > 0 } {