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.9.2.8 -r1.9.2.9
--- openacs-4/packages/xotcl-request-monitor/www/whos-online-today.tcl	6 Oct 2023 09:07:24 -0000	1.9.2.8
+++ openacs-4/packages/xotcl-request-monitor/www/whos-online-today.tcl	13 Oct 2023 09:04:16 -0000	1.9.2.9
@@ -49,14 +49,20 @@
 
 set now_ansi  [lc_clock_to_ansi [clock seconds]]
 
+set xowiki_p [expr {[namespace which ::xowiki::utility] ne ""}]
+
 foreach element $elements {
   lassign $element user_id timestamp
   set user_info [xo::request_monitor_user_info $user_id]
+
+  set last_activity [expr {$xowiki_p ?
+                           [::xowiki::utility pretty_age -timestamp $timestamp] :
+                           [lc_clock_to_ansi $timestamp]
+                         }]
   lappend users [list [dict get $user_info label] \
                      [dict get $user_info url] \
                      $timestamp \
-                     [::xowiki::utility pretty_age \
-                          -timestamp [clock scan [lc_clock_to_ansi $timestamp]]] \
+                     $last_activity \
                     ]
 }