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
     }