Index: openacs-4/packages/xotcl-request-monitor/xotcl-request-monitor.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/xotcl-request-monitor.info,v
diff -u -N -r1.8.2.5 -r1.8.2.6
--- openacs-4/packages/xotcl-request-monitor/xotcl-request-monitor.info	25 Sep 2013 10:22:57 -0000	1.8.2.5
+++ openacs-4/packages/xotcl-request-monitor/xotcl-request-monitor.info	27 Sep 2013 19:40:08 -0000	1.8.2.6
@@ -12,6 +12,7 @@
         <owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann</owner>
         <summary>Request Monitor with user tracking functionality</summary>
         <release-date>2013-09-08</release-date>
+        <vendor>Gustaf Neumann, WU Wien</vendor>
         <description format="text/html">&lt;pre&gt;
 This package provides a Request Monitor for OpenACS applications. It computes performance 
 summary information such as requests/views per seconds, average response time, number
Index: openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl,v
diff -u -N -r1.41.2.1 -r1.41.2.2
--- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	17 Sep 2013 19:29:57 -0000	1.41.2.1
+++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	27 Sep 2013 19:40:09 -0000	1.41.2.2
@@ -1118,10 +1118,9 @@
   my get_context
   #my log "### check"
 
-  foreach {toMuch ms repeat} \
-      [my throttle_check $requestor $pa $url \
-	   [ns_conn start] [ns_guesstype [ns_conn url]] $community_id] \
-      break
+  lassign [my throttle_check $requestor $pa $url \
+	       [ns_conn start] [ns_guesstype [ns_conn url]] $community_id] \
+      toMuch ms repeat
   if {$repeat} {
     my add_statistics repeat $requestor $pa $url $query
     return -1