Index: openacs-4/contrib/packages/portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/portal/tcl/portal-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/contrib/packages/portal/tcl/portal-procs.tcl	8 Jan 2004 02:12:19 -0000	1.3
+++ openacs-4/contrib/packages/portal/tcl/portal-procs.tcl	10 Jan 2004 01:01:01 -0000	1.4
@@ -232,16 +232,17 @@
         db_1row portal_select {} -column_array portal
         set page_id $portal(page_id)
 
-        set element_ids [list]
         db_foreach element_select {} -column_array entry {
             lappend element_ids($entry(region)) $entry(element_id)
+        } if_no_rows {
+            set element_ids {}
         }
 
         set element_list [array get element_ids]
 
         # set up the template, it includes the layout template,
         # which in turn includes the theme, then elements
-        if {[empty_string_p $element_list]} {
+        if {[string match "" $element_list]} {
             # The portal has no elements, show anyway (they can configure)
             set template "<master src=\"@master_template@\">
             <property name=\"title\">@portal.name@</property>"
@@ -265,6 +266,7 @@
 
         # compile and evaluate the template
         set code [template::adp_compile -string $template]
+
         return [template::adp_eval code]
     }