@@ -1527,11 +1527,11 @@
 	 (toplevels   '())
 	 (deadtime-str (configf:lookup *configdat* "setup" "deadtime"))
 	 (deadtime     (if (and deadtime-str
 				(string->number deadtime-str))
 			   (string->number deadtime-str)
-			   7200))) ;; two hours
+			   72000))) ;; twenty hours
     (db:with-db
      dbstruct #f #f
      (lambda (db)
        (if (number? ovr-deadtime)(set! deadtime ovr-deadtime))