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.216 -r1.216.2.1
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	19 Dec 2018 18:40:31 -0000	1.216
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	14 Feb 2019 16:15:01 -0000	1.216.2.1
@@ -266,7 +266,7 @@
     # put the element IDs into buckets by region...
         lappend element_ids($entry(region)) $entry(element_id)
     } if_no_rows {
-        set element_ids {}
+        array set element_ids {}
     }
 
     set element_list [array get element_ids]