Index: http-transport.scm ================================================================== --- http-transport.scm +++ http-transport.scm @@ -397,13 +397,13 @@ ;; no_traffic, no running tests, if server 0, no running servers ;; (if (and *server-run* (or (> (db:get-count-tests-running *inmemdb* run-id) 0) (and (eq? run-id 0) - (> (tasks:num-servers-non-zero-running tdb) 0))) - (> (+ last-access server-timeout) - (current-seconds))) + (> (tasks:num-servers-non-zero-running tdb) 0)) + (> (+ last-access server-timeout) + (current-seconds)))) (begin (debug:print-info 0 "Server continuing, seconds since last db access: " (- (current-seconds) last-access)) ;; ;; Consider implementing some smarts here to re-insert the record or kill self is ;; the db indicates so