Index: openacs-4/packages/xotcl-request-monitor/www/whos-online-today.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/whos-online-today.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/xotcl-request-monitor/www/whos-online-today.tcl	9 May 2018 15:33:34 -0000	1.7
+++ openacs-4/packages/xotcl-request-monitor/www/whos-online-today.tcl	27 Jun 2018 16:17:58 -0000	1.8
@@ -47,8 +47,8 @@
 foreach element $elements {
   lassign $element user_id timestamp
   if {[string is integer $user_id]} {
-    acs_user::get -user_id $user_id -array user
-    set user_label "$user(last_name), $user(first_names)" 
+    set person [person::get_person_info -person_id $user_id]
+    set user_label "[dict get $person last_name], [dict get $person first_names]"
     set user_url [acs_community_member_url -user_id $user_id]
   } else {
     # it was an IP address