Index: openacs-4/packages/xotcl-request-monitor/tcl/callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/tcl/callback-procs.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/xotcl-request-monitor/tcl/callback-procs.tcl	18 Sep 2007 10:21:44 -0000	1.3
+++ openacs-4/packages/xotcl-request-monitor/tcl/callback-procs.tcl	7 Aug 2017 23:48:30 -0000	1.4
@@ -32,8 +32,14 @@
       #
       # Just update these parameters, which are defined in the throttle thread.
       #
-      if {[throttle do info command $parameter] ne ""} {
+      if {[throttle do info commands $parameter] ne ""} {
         throttle do $parameter update $value
       }
     }
 }
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 2
+#    indent-tabs-mode: nil
+# End: