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.2.2 -r1.216.2.3
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	1 Mar 2019 10:00:15 -0000	1.216.2.2
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	16 Oct 2019 09:42:46 -0000	1.216.2.3
@@ -258,7 +258,7 @@
     if {[db_0or1row portal_select {} -column_array portal]} {
         set page_id $portal(page_id)
     } else {
-        return_complaint 1 [_ new-portal.Page_not_found]
+        ad_return_complaint 1 [_ new-portal.Page_not_found]
         ad_script_abort
     }