Index: openacs-4/packages/acs-subsite/www/user/portrait/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/user/portrait/index.tcl,v
diff -u -N -r1.14 -r1.15
--- openacs-4/packages/acs-subsite/www/user/portrait/index.tcl	21 Feb 2018 14:00:56 -0000	1.14
+++ openacs-4/packages/acs-subsite/www/user/portrait/index.tcl	28 May 2018 17:45:26 -0000	1.15
@@ -48,17 +48,17 @@
 set portrait_image_url [export_vars -base ${subsite_url}shared/portrait-bits.tcl {user_id}]
 set export_edit_vars   [export_vars {user_id return_url}]
 
-if {![db_0or1row user_info {
-    select first_names, last_name 
-    from persons 
-    where person_id = :user_id
-}]} {
+if {![person::person_p -party_id $user_id]} {
     set return_code "no_user"
     set context [list "Account Unavailable"]
     ad_return_template
     return
 }
 
+set person [person::get -person_id $user_id]
+set first_names [dict get $person first_names]
+set last_name   [dict get $person last_name]
+
 set item_id [acs_user::get_portrait_id \
                  -user_id $user_id]
 set portrait_p [expr {$item_id != 0}]