Index: openacs-4/packages/acs-templating/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/widget-procs.tcl,v
diff -u -r1.63.2.20 -r1.63.2.21
--- openacs-4/packages/acs-templating/tcl/widget-procs.tcl	2 Nov 2022 16:08:54 -0000	1.63.2.20
+++ openacs-4/packages/acs-templating/tcl/widget-procs.tcl	23 Nov 2023 16:47:35 -0000	1.63.2.21
@@ -573,7 +573,8 @@
     # always ignore value for submit widget
     set element(value) $element(label)
     
-    return [input submit element [concat $tag_attributes {class prevent-double-click}]]
+    return [input submit element \
+                [dict lappend tag_attributes class prevent-double-click]]
 }
 
 ad_proc -public template::widget::attachment {