Index: commonmod.scm
==================================================================
--- commonmod.scm
+++ commonmod.scm
@@ -4438,11 +4438,13 @@
 (define (server:expiration-timeout)
   (let ((tmo (configf:lookup *configdat* "server" "timeout")))
     (if (and (string? tmo)
 	     (common:hms-string->seconds tmo)) ;; BUG: hms-string->seconds is broken, if given "10" returns 0. Also, it doesn't belong in this logic unless the string->number is changed below
         (* 3600 (string->number tmo))
-	60))) ;; default is one minute
+	;; 60 ;; default is one minute
+	5
+	)))
 
 (define (runs:get-mt-env-alist run-id runname target testname itempath)
   ;;(bb-check-path msg: "runs:set-megatest-env-vars entry")
   `(("MT_TEST_NAME"     . ,testname)
     

Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -877,19 +877,16 @@
 		  (hash-table-set!    (dboard:tabdat-allruns-by-id tabdat) run-id run-struct))
 	      (if (or (null? tal)
 		      (> elapsed-time 2)) ;; stop loading data after 5 seconds, on the next call more data *should* be loaded since get-tests-for-run uses last update
 		  (begin
 		    (when (> elapsed-time 2)   
-                      (debug:print 0 *default-log-port* "NOTE: updates are taking a long time, " elapsed-time "s elapsed.")
-                      (let* ((old-val (iup:attribute *tim* "TIME"))
-                             (new-val (number->string (inexact->exact (floor (* 2  (string->number old-val)))))))
-                        (if (< (string->number new-val) 5000)
-                            ((debug:print 0 *default-log-port* "NOTE: increasing poll interval from "old-val" to "new-val)
-                            (iup:attribute-set! *tim* "TIME" new-val))))
-
-
-                      )
+		      (debug:print 0 *default-log-port* "NOTE: updates are taking a long time, " elapsed-time "s elapsed.")
+		      (let* ((old-val (iup:attribute *tim* "TIME"))
+			     (new-val (number->string (inexact->exact (floor (* 2  (string->number old-val)))))))
+			(if (< (string->number new-val) 5000)
+			    (debug:print 0 *default-log-port* "NOTE: increasing poll interval from "old-val" to "new-val)
+			    (iup:attribute-set! *tim* "TIME" new-val))))
 		    (dboard:tabdat-allruns-set! tabdat new-res)
 		    maxtests)
 		  (if (> (dboard:rundat-run-data-offset run-struct) 0)
 		      (loop run tal new-res newmaxtests) ;; not done getting data for this run
 		      (loop (car tal)(cdr tal) new-res newmaxtests)))))))