Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v
diff -u -r1.219 -r1.220
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	11 Sep 2024 06:15:51 -0000	1.219
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	8 Oct 2024 14:55:43 -0000	1.220
@@ -511,12 +511,11 @@
 
             # fake some elements for the <list> in the template
             set regions [get_layout_region_list -layout_id $portal(layout_id)]
+            set element_list [list]
             foreach region $regions {
-                lappend fake_element_ids($region) $portal_id
+                lappend element_list $region $portal_id
             }
 
-            set element_list [array get fake_element_ids]
-
             # DRB: This is a horrible, short-term (I hope!) hack to allow
             # the portal config page to work correctly when a page's given
             # layout is div-based rather than table-based.
@@ -543,10 +542,6 @@
                 </table>
                 </td>
                 </tr>}]
-
-
-                # clear out the region array
-            array unset fake_element_ids
         }
 
         if {![portal::non_hidden_elements_p -page_id $page_id]} {