Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -445,11 +445,11 @@
 ;;
 (define (server:expiration-timeout)
   (let ((tmo (configf:lookup *configdat* "server" "timeout")))
     (if (and (string? tmo)
 	     (common:hms-string->seconds tmo))
-        (string->number tmo)
+        (* 3600 (string->number tmo))
 	60)))
 
 ;; moving this here as it needs access to db and cannot be in common.
 ;;
 (define (server:writable-watchdog dbstruct)