Index: openacs-4/packages/acs-tcl/tcl/html-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/html-procs.tcl,v
diff -u -r1.5.2.3 -r1.5.2.4
--- openacs-4/packages/acs-tcl/tcl/html-procs.tcl	1 Feb 2021 10:51:09 -0000	1.5.2.3
+++ openacs-4/packages/acs-tcl/tcl/html-procs.tcl	4 Jun 2024 13:18:10 -0000	1.5.2.4
@@ -89,11 +89,9 @@
     }   
     
     if {$id ne ""} {
-        # We have more than one, check for supplied id
+        # We have more than one form, check for supplied id
         foreach form $forms {
-            array set fo $form
-            array set a $fo(attributes)
-            if {$a(id) eq $id} {
+            if {[dict get $form attributes id] eq $id} {
                 return $form
             }
         }