Index: http-transport.scm
==================================================================
--- http-transport.scm
+++ http-transport.scm
@@ -450,11 +450,11 @@
 	    (debug:print-info 0 *default-log-port* "Adjusted server timeout: " adjusted-timeout))
 	(cond
          ((and *server-run*
 	       (> (+ last-access server-timeout)
 		  (current-seconds))
-	       (< (- (current-seconds) server-start-time) 3600)) ;; do not update log or touch log if we've been running for more than one hour.
+	       (< (- (current-seconds) server-start-time) (configf:get-number *configdat* "server" "time-to-die-seconds" (* 3600 700 2) ) )) ;; do not update log or touch log if we've been running for more than one hour.
           (if (common:low-noise-print 120 "server continuing")
               (debug:print-info 0 *default-log-port* "Server continuing, seconds since last db access: " (- (current-seconds) last-access))
 	      (let ((curr-time (current-seconds)))
 		(handle-exceptions
 		    exn

Index: megatest.config
==================================================================
--- megatest.config
+++ megatest.config
@@ -22,5 +22,7 @@
 all   areas=fullrun,ext-tests
 snazy areas=%; selector=QUICKPATT/
 
 [nopurpose]
 
+[server]
+timeout 1