Index: openacs-4/packages/acs-templating/tcl/tag-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/tag-init.tcl,v
diff -u -r1.49.2.14 -r1.49.2.15
--- openacs-4/packages/acs-templating/tcl/tag-init.tcl	30 Dec 2021 13:49:32 -0000	1.49.2.14
+++ openacs-4/packages/acs-templating/tcl/tag-init.tcl	30 Dec 2021 14:45:14 -0000	1.49.2.15
@@ -510,8 +510,9 @@
     set id [template::get_attribute formwidget $params id]
 
     # get any additional HTML attributes specified by the designer
-    set tag_attributes [ns_set array $params]
-    dict unset tag_attributes id
+    set tag_attributes [dict remove \
+                            [ns_set array $params] \
+                            id]
 
     template::adp_append_string \
         "\[template::element render \${form:id} [list $id] { $tag_attributes } \]"
@@ -525,8 +526,9 @@
     set id [template::get_attribute formhelp $params id]
 
     # get any additional HTML attributes specified by the designer
-    set tag_attributes [ns_set array $params]
-    dict unset tag_attributes id
+    set tag_attributes [dict remove \
+                            [ns_set array $params] \
+                            id]
 
     template::adp_append_string \
         "\[template::element render_help \${form:id} [list $id] { $tag_attributes } \]"
@@ -571,8 +573,9 @@
     set id [template::get_attribute formgroup $params id]
 
     # get any additional HTML attributes specified by the designer
-    set tag_attributes [ns_set array $params]
-    dict unset tag_attributes id
+    set tag_attributes [dict remove \
+                            [ns_set array $params] \
+                            id]
 
     # generate a list of options and option labels as a data source
 
@@ -602,10 +605,9 @@
 
     set row [template::get_attribute formgroup-widget $params row]
     # get any additional HTML attributes specified by the designer
-    set tag_attributes [ns_set array $params]
-    foreach a {id row} {
-        dict unset tag_attributes $a
-    }
+    set tag_attributes [dict remove \
+                            [ns_set array $params] \
+                            id row]
 
     # generate a list of options and option labels as a data source
 
@@ -645,10 +647,9 @@
     }
 
     # get any additional HTML attributes specified by the designer
-    set tag_attributes [ns_set array $params]
-    foreach a {id style method title cols headers} {
-        dict unset tag_attributes $a
-    }
+    set tag_attributes [dict remove \
+                            [ns_set array $params] \
+                            id style method title cols headers]
 
     template::adp_append_string \
         [subst -nocommands {[template::form render $id { $tag_attributes } ]}]