Index: openacs-4/packages/acs-tcl/tcl/defs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/defs-procs.tcl,v
diff -u -N -r1.73 -r1.74
--- openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	9 May 2018 15:33:29 -0000	1.73
+++ openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	28 May 2018 18:10:17 -0000	1.74
@@ -176,11 +176,9 @@
     @return the HTML link of the community member page of a particular admin user.
 } {
     if {$label eq ""} {
-        set label [db_string select_community_member_link_label {
-            select persons.first_names || ' ' || persons.last_name
-            from persons
-            where person_id = :user_id
-        } -default $user_id]
+        set label [expr {[person::person_p -party_id $user_id] ?
+                         [acs_user::get_element \
+                              -user_id $user_id -element name] : $user_id}]
     }
     set href [acs_community_member_admin_url -user_id $user_id]
     return [subst {<a href="[ns_quotehtml $href]">$label</a>}]