Index: openacs-4/packages/xowiki/tcl/includelet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/includelet-procs.tcl,v
diff -u -r1.226 -r1.227
--- openacs-4/packages/xowiki/tcl/includelet-procs.tcl	27 Jun 2018 12:07:09 -0000	1.226
+++ openacs-4/packages/xowiki/tcl/includelet-procs.tcl	27 Jun 2018 16:12:34 -0000	1.227
@@ -363,8 +363,11 @@
   }
 
   ::xowiki::Includelet instproc screen_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::get_person_info -person_id $user_id -element name]
+    }
+    return $screen_name
   }
 }