Index: openacs-4/packages/acs-lang/tcl/lang-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-lang/tcl/lang-widget-procs.tcl,v
diff -u -r1.10 -r1.10.2.1
--- openacs-4/packages/acs-lang/tcl/lang-widget-procs.tcl	24 Apr 2018 14:28:55 -0000	1.10
+++ openacs-4/packages/acs-lang/tcl/lang-widget-procs.tcl	30 Nov 2023 15:13:27 -0000	1.10.2.1
@@ -24,13 +24,12 @@
 
     upvar $element_reference element
 
-    if { [info exists element(html)] } {
-        array set attributes $element(html)
-    }
+    array set attributes \
+        [::template::widget::merge_tag_attributes element $tag_attributes]
+
     if { [info exists element(values)] } {
          template::util::list_to_lookup $element(values) values
     }
-    array set attributes $tag_attributes
 
     if { $element(mode) ne "edit" } {
         set selected_list [list]