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.34 -r1.35
--- openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	26 Sep 2003 22:50:41 -0000	1.34
+++ openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	1 Oct 2003 15:47:09 -0000	1.35
@@ -155,11 +155,8 @@
     @see acs_community_member_url
 } {
     if {[empty_string_p $label]} {
-        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]
+        acs_user::get -user_id $user_id -array user
+        set label "$user(fist_names) $user(last_name)"
     }
 
     return "<a href=\"[acs_community_member_url -user_id $user_id]\">$label</a>"