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.27 -r1.28
--- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	10 Jan 2009 21:28:51 -0000	1.27
+++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	10 Jan 2009 22:24:14 -0000	1.28
@@ -910,6 +910,14 @@
   #
   dump read
 
+  #
+  # Add an exit handler to write out the dump, when this thread goes
+  # down.
+  #
+  ::xotcl::Object setExitHandler {
+    dump write
+  }
+
   
 } -persistent 1 -ad_doc {
   This is a small request-throttle application that handles simple