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.25 -r1.26
--- openacs-4/packages/xotcl-request-monitor/www/index.tcl	7 Aug 2017 23:48:30 -0000	1.25
+++ openacs-4/packages/xotcl-request-monitor/www/index.tcl	1 Oct 2017 12:10:25 -0000	1.26
@@ -228,7 +228,7 @@
       set c 1
       foreach v [throttle max_values $t] {
 	incr c
-	switch $t {
+	switch -- $t {
 	  minutes {set rps "([format %5.2f [expr {[lindex $v 1]/60.0}]] rps)"}
 	  hours   {set rps "([format %5.2f [expr {[lindex $v 1]/(60*60.0)}]] rps)"}
 	  default {set rps ""}
@@ -276,7 +276,7 @@
       set c 1
       foreach v [throttle max_values $t] {
 	incr c
-	switch $t {
+	switch -- $t {
 	  minutes {set rps "([format %5.2f [expr {[lindex $v 1]/60.0}]] rps)"}
 	  hours   {set rps "([format %5.2f [expr {[lindex $v 1]/(60*60.0)}]] rps)"}
 	  default {set rps ""}