Index: openacs-4/packages/xotcl-request-monitor/www/running.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/running.tcl,v
diff -u -N -r1.9 -r1.10
--- openacs-4/packages/xotcl-request-monitor/www/running.tcl	22 Dec 2017 13:12:58 -0000	1.9
+++ openacs-4/packages/xotcl-request-monitor/www/running.tcl	27 Jun 2018 16:26:34 -0000	1.10
@@ -53,8 +53,7 @@
   lassign [split $key ,] requestor url
   set ms [format %.2f [expr {[throttle ms -start_time $elapsed]/1000.0}]]
   if {[string is integer $requestor]} {
-    acs_user::get -user_id $requestor -array user
-    set user_string "$user(first_names) $user(last_name)"
+    set user_string [person::name -person_id $requestor]
   } else {
     set user_string $requestor
   }
@@ -66,8 +65,7 @@
   lassign [split $key ,] requestor url
   set ms [format %.2f [expr {[throttle ms -start_time $elapsed]/-1000.0}]]
   if {[string is integer $requestor]} {
-    acs_user::get -user_id $requestor -array user
-    set user_string "$user(first_names) $user(last_name)"
+    set user_string [person::name -person_id $requestor]
   } else {
     set user_string $requestor
   }
@@ -84,8 +82,7 @@
     set progress [format {%5.2f%% of %5.2f MB} $percentage [expr {$size/1000000.0}]]
     set ms [format %.2f [expr {([clock milliseconds] - $starttime*1000)/-1000.0}]]
     if {[string is integer $requestor]} {
-      acs_user::get -user_id $requestor -array user
-      set user_string "$user(first_names) $user(last_name)"
+      set user_string [person::name -person_id $requestor]      
     } else {
       set user_string $requestor
     }
Index: openacs-4/packages/xotcl-request-monitor/www/users-in-community.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/users-in-community.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/xotcl-request-monitor/www/users-in-community.tcl	9 May 2018 15:33:34 -0000	1.6
+++ openacs-4/packages/xotcl-request-monitor/www/users-in-community.tcl	27 Jun 2018 16:27:50 -0000	1.7
@@ -28,8 +28,7 @@
   if {[info exists listed($requestor)]} continue
   set listed($requestor) 1
   if {[string is integer -strict $requestor]} {
-    acs_user::get -user_id $requestor -array user
-    set user_string "$user(first_names) $user(last_name)"
+    set user_string [person::name -person_id $requestor]
   } else {
     set user_string $requestor
   }
Index: openacs-4/packages/xotcl-request-monitor/www/last101.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/last101.tcl,v
diff -u -N -r1.7 -r1.8
--- openacs-4/packages/xotcl-request-monitor/www/last101.tcl	9 May 2018 15:33:34 -0000	1.7
+++ openacs-4/packages/xotcl-request-monitor/www/last101.tcl	27 Jun 2018 16:29:27 -0000	1.8
@@ -38,8 +38,7 @@
 foreach l $stat {
   lassign $l timestamp c url ms requestor
   if {[string is integer $requestor]} {
-    acs_user::get -user_id $requestor -array user
-    set user_string "$user(first_names) $user(last_name)"
+    set user_string [person::name -person_id $requestor]
   } else {
     set user_string $requestor
   }