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.7 -r1.41.2.8
--- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	5 Oct 2013 12:36:53 -0000	1.41.2.7
+++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	11 Oct 2013 10:17:22 -0000	1.41.2.8
@@ -29,7 +29,7 @@
       }
 
   package_parameter log-dir \
-      -default [file dirname [file root [ns_config ns/parameters ServerLog]]]
+      -default [file dirname [file rootname [ns_config ns/parameters ServerLog]]]
 
   package_parameter max-url-stats  -default 500
   package_parameter time-window    -default 13
@@ -505,7 +505,7 @@
       set result [my url_stats]
       set l [llength $result]
       for {set i $max} {$i<$l} {incr i} {
-	set url [lindex [lindex $result $i] 0]
+	set url [lindex $result $i 0]
 	my unset stat($url)
 	my unset cnt($url)
       }