Index: openacs-4/packages/acs-tcl/lib/page-error.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/lib/page-error.tcl,v
diff -u -N -r1.16 -r1.17
--- openacs-4/packages/acs-tcl/lib/page-error.tcl	11 May 2018 09:16:12 -0000	1.16
+++ openacs-4/packages/acs-tcl/lib/page-error.tcl	29 May 2018 09:13:12 -0000	1.17
@@ -21,7 +21,9 @@
     set user_name [_ acs-tcl.Public_User]
     set public_userm_email [parameter::get -package_id [ad_acs_kernel_id] -parameter HostAdministrator -default ""]
 } else {
-    db_1row get_user_info {}
+    set user [acs_user::get -user_id $user_id]
+    set user_name  [dict get $user name]
+    set user_email [dict get $user email]
     set public_userm_email $user_email
 }
 
Index: openacs-4/packages/acs-tcl/lib/page-error.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/lib/page-error.xql,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/lib/page-error.xql	7 Aug 2017 23:47:59 -0000	1.2
+++ openacs-4/packages/acs-tcl/lib/page-error.xql	29 May 2018 09:13:12 -0000	1.3
@@ -7,16 +7,7 @@
 <!-- @cvs-id $Id$ -->
 
 <queryset>
-  <fullquery name="get_user_info">
-    <querytext>
-      
-      select p.first_names||' '||p.last_name as user_name, pa.email as user_email 
-      from persons p, parties pa
-      where pa.party_id = p.person_id
-      and p.person_id = :user_id
-      
-    </querytext>
-  </fullquery>
+
   <fullquery name="search_bug">
     <querytext>
       select bug_id