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 -N -r1.31 -r1.32
--- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	20 Apr 2010 09:11:01 -0000	1.31
+++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	21 Apr 2010 14:50:34 -0000	1.32
@@ -130,8 +130,17 @@
   set ::threads_current 0
   set ::threads_datapoints 0 ;# make sure, we never divide by 0
 
+  if {[ns_info name] eq "NaviServer"} {
+    Throttle instproc server_threads {} {ns_server threads}
+  } else {
+    Throttle instproc server_threads {} {
+      set l [list]
+      foreach e [ns_server threads] {lappend l [lindex $e 0] [lindex $e 1]} 
+      return $l
+    }
+  }
   Throttle instproc update_threads_state {} {
-    array set threadInfo [ns_server threads]
+    array set threadInfo [my server_threads]
     incr ::threads_busy [expr {$threadInfo(current) - $threadInfo(idle)}]
     incr ::threads_current $threadInfo(current)
     incr ::threads_datapoints