Index: openacs-4/packages/chat/tcl/chat-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/tcl/chat-procs.tcl,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/chat/tcl/chat-procs.tcl	29 May 2018 08:27:33 -0000	1.20
+++ openacs-4/packages/chat/tcl/chat-procs.tcl	28 Jun 2018 08:45:18 -0000	1.21
@@ -448,8 +448,10 @@
 } {
     Return display name of this user to use in chat.
 } {
-    acs_user::get -user_id $user_id -array user
-    set name [expr {$user(screen_name) ne "" ? $user(screen_name) : $user(name)}]
+    set name [acs_user::get_user_info -user_id $user_id -element screen_name]
+    if {$name eq ""} {
+        set name [person::name -person_id $user_id]
+    }
     return $name
 }