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.6 -r1.7
--- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	4 Sep 2007 11:32:33 -0000	1.6
+++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	5 Sep 2007 09:39:53 -0000	1.7
@@ -522,10 +522,16 @@
 	close $f
       }
     }
-    if {[catch {my incr active($key)}]} {
-      my set active($key) 1
+    set counter active($key)
+    if {[catch {my incr $counter}]} {
+      my set $counter 1
+    }
+    if {[my set $counter] == 1} {
+      # we could combine this test with the incr, but in
+      # Tcl 8.5, incr on unknown variables does not throw errors
       $class incrRefCount $key $pa
     }
+
     my community_access $key $community_id
     set entry [list [my point_in_time] $url $pa]
     if {[catch {my lappend urls($key) $entry}]} {