@@ -311,12 +311,13 @@
 	 (tdb         (tasks:open-db))
 	 (server-timeout (let ((tmo (config-lookup  *configdat* "server" "timeout")))
 			   (if (and (string? tmo)
 				    (string->number tmo))
 			       (* 60 60 (string->number tmo))
-			       ;; default to three days
-			       (* 3 24 60 60)))))
+			       ;; (* 3 24 60 60) ;; default to three days
+			       (* 60 60)         ;; default to one hour
+			       ))))
     ;;
     ;; set_running
     ;;
     (tasks:server-set-state! tdb server-id "running")
     (let loop ((count 0))