Index: openacs-4/packages/xotcl-request-monitor/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/www/index.tcl,v
diff -u -r1.31.2.5 -r1.31.2.6
--- openacs-4/packages/xotcl-request-monitor/www/index.tcl	2 Mar 2020 20:49:50 -0000	1.31.2.5
+++ openacs-4/packages/xotcl-request-monitor/www/index.tcl	17 Feb 2021 08:21:45 -0000	1.31.2.6
@@ -314,8 +314,7 @@
   # Draw a graph in form of an HTML table of with 500 pixels.
   #
   proc graph values {
-    set max 1
-    foreach v $values {if {$v>$max} {set max $v}}
+    set max [tcl::mathfunc::max {*}$values]
     set graph "<table cellpadding=0 cellspacing=1 style='background: #EAF2FF;'>\n"
     foreach v $values {
       set bar "<div style='height: 2px; background-color: #859db8; width: [expr {340*$v/$max}]px;'>"