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.188 -r1.189
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	24 Apr 2009 11:51:20 -0000	1.188
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	12 Jan 2010 17:50:08 -0000	1.189
@@ -264,8 +264,12 @@
     }
 
     # get the portal and layout
-    db_1row portal_select {} -column_array portal
-    set page_id $portal(page_id)
+    if {[db_0or1row portal_select {} -column_array portal]} {
+        set page_id $portal(page_id)
+    } else {
+        ad_return_complaint 1 "[_ new-portal.Page_not_found]"
+        ad_script_abort
+    }
 
     db_foreach element_select {} -column_array entry {
         # put the element IDs into buckets by region...