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.32 -r1.33
--- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	21 Apr 2010 14:50:34 -0000	1.32
+++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	22 Apr 2010 04:39:19 -0000	1.33
@@ -78,13 +78,13 @@
   }
 
   Throttle instproc add_statistics { type requestor ip_adress url query } {
-    set furl [expr {$query ne "" ? "$url?$query" : $url}]
+    #set furl [expr {$query ne "" ? "$url?$query" : $url}]
     my incr ${type}s
     #my log "++++ add_statistics   -type $type -user_id $requestor "
     set entry [ThrottleStat new -childof [self]::stats \
 		   -type $type -requestor $requestor \
 		   -timestamp [clock seconds] \
-		   -ip_adress $ip_adress -url $furl]
+		   -ip_adress $ip_adress -url $url]
   }
 
   Throttle instproc url_statistics {{-flush 0}} {