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.38 -r1.39
--- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	21 Sep 2011 08:05:06 -0000	1.38
+++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	17 Apr 2012 15:23:16 -0000	1.39
@@ -192,11 +192,11 @@
     # will make the sttistics for images look better than they are.
     set is_image_request [string match "image/*" $content_type]
     if {[my exists $var] && !$is_image_request && !$off} {
-      #my log "### already $var"
+      #ns_log notice  "### already $var"
       return [list 0 0 1]
     } else {
       my set $var $conn_time
-      #my log "### new $var"
+      #ns_log notice  "### new $var"
     }
     my register_access $requestKey $pa $url $community_id
 
@@ -1164,7 +1164,7 @@
   set r [my check]
   if {$r<0} {
     ns_return 200 text/html "
-      <H1>[_ xotcl-request-monitor.repeated_operation]</H1>
+      <H1>[_ xotcl-request-monitor.repeated_operation [list url [my set url]]]</H1>
       [_ xotcl-request-monitor.operation_blocked]<p>"
     return filter_return
   } elseif {$r>0} {