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 -N -r1.216 -r1.217
--- 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	11 Feb 2019 11:46:10 -0000	1.217
@@ -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]