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 -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