Index: openacs-4/packages/xotcl-core/tcl/chat-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/Attic/chat-procs.tcl,v
diff -u -r1.31 -r1.32
--- openacs-4/packages/xotcl-core/tcl/chat-procs.tcl	12 Apr 2018 06:40:32 -0000	1.31
+++ openacs-4/packages/xotcl-core/tcl/chat-procs.tcl	27 Jun 2018 16:38:25 -0000	1.32
@@ -233,8 +233,11 @@
   }
 
   Chat instproc user_name { user_id } {
-    acs_user::get -user_id $user_id -array user
-    return [expr {$user(screen_name) ne "" ? $user(screen_name) : $user(name)}]
+    set screen_name [acs_user::get_user_info -user_id $user_id -element screen_name]
+    if {$screen_name eq ""} {
+      set screen_name [person::name -person_id $user_id]
+    }
+    return $screen_name
   }
 
   Chat instproc user_link { -user_id -color } {