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 -N -r1.9 -r1.9.2.1
--- openacs-4/packages/xotcl-request-monitor/www/whos-online-today.tcl	29 Jun 2018 17:27:19 -0000	1.9
+++ openacs-4/packages/xotcl-request-monitor/www/whos-online-today.tcl	20 Nov 2019 13:24:52 -0000	1.9.2.1
@@ -42,7 +42,7 @@
 if {!$all} {set elements [concat $ip $auth]} {set elements $auth}
 set summary "We noticed in [expr {[llength $ip]+[llength $auth]}] users in total, containing [llength $auth] authenticated users"
 
-set now_ansi  [clock_to_ansi [clock seconds]]
+set now_ansi  [lc_clock_to_ansi [clock seconds]]
 
 foreach element $elements {
   lassign $element user_id timestamp
@@ -60,7 +60,7 @@
 		     $user_url \
 		     $timestamp \
                      [util::age_pretty \
-                          -timestamp_ansi [clock_to_ansi $timestamp] \
+                          -timestamp_ansi [lc_clock_to_ansi $timestamp] \
                           -sysdate_ansi $now_ansi \
                           -mode_3_fmt "%d %b %Y, at %X"] \
 		    ]