Index: openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	3 Jul 2002 16:15:31 -0000	1.4
+++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	7 Jul 2002 11:18:37 -0000	1.5
@@ -213,7 +213,7 @@
     set names [nsv_array names ds_request]
     foreach name $names {
 	if { [regexp {^([0-9]+)\.start$} $name "" request] && \
-		$now - [nsv_get ds_request $name] > $lifetime } {
+                 $now - [lindex [nsv_get ds_request $name] 0] > $lifetime } {
 	    set kill_requests($request) 1
 	}
     }