Index: commonmod.scm
==================================================================
--- commonmod.scm
+++ commonmod.scm
@@ -3577,10 +3577,11 @@
 (define (common:hms-string->seconds tstr)
   (let ((parts     (string-split-fields "\\w+" tstr))
 	(time-secs 0)
 	;; s=seconds, m=minutes, h=hours, d=days, M=months, y=years, w=weeks
 	(trx       (regexp "(\\d+)([smhdMyw])")))
+    (assert (list? parts) "FATAL: common-hms-string->seconds failed on input "tstr)
     (for-each (lambda (part)
 		(let ((match  (string-match trx part)))
 		  (if match
 		      (let ((val (string->number (cadr match)))
 			    (unt (caddr match)))
@@ -4447,11 +4448,11 @@
 (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
+	3600))) ;; default is one minute
 
 (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
@@ -390,11 +390,12 @@
 
   ;; HACK ALERT: this is a hack, please fix.
   (dboard:tabdat-ro-set! tabdat (not (file-readable? (dboard:tabdat-dbfpath tabdat))))
   
   (dboard:tabdat-keys-set! tabdat (rmt:get-keys))
-  (dboard:tabdat-dbkeys-set! tabdat (append (dboard:tabdat-keys tabdat) (list "runname")))
+  (dboard:tabdat-dbkeys-set! tabdat (append (or (dboard:tabdat-keys tabdat)'())
+					    (list "runname")))
   (dboard:tabdat-tot-runs-set! tabdat (rmt:get-num-runs "%"))
   )
 
 ;; RADT => Matrix defstruct addition
 (defstruct dboard:graph-dat
@@ -660,19 +661,20 @@
 	 (db-modified  (>= db-mod-time last-db-time))
 	 (multi-get    (> (dboard:rundat-run-data-offset run-dat) 0))  ;; multi-get in progress
 	 (tmptests     (if (or do-not-use-db-file-timestamps
 			       (dboard:tabdat-filters-changed tabdat)
 			       db-modified)
-			   (rmt:get-tests-for-run run-id testnamepatt states statuses     ;; run-id testpatt states statuses
-					      (dboard:rundat-run-data-offset run-dat) ;; query offset
-					      num-to-get
-					      (dboard:tabdat-hide-not-hide tabdat) ;; no-in
-					      sort-by                              ;; sort-by
-					      sort-order                           ;; sort-order
-					      #f ;; 'shortlist                     ;; qrytype
-					      last-update                          ;; last-update
-					      *dashboard-mode*)                    ;; use dashboard mode
+			   (or (rmt:get-tests-for-run run-id testnamepatt states statuses     ;; run-id testpatt states statuses
+						      (dboard:rundat-run-data-offset run-dat) ;; query offset
+						      num-to-get
+						      (dboard:tabdat-hide-not-hide tabdat) ;; no-in
+						      sort-by                              ;; sort-by
+						      sort-order                           ;; sort-order
+						      #f ;; 'shortlist                     ;; qrytype
+						      last-update                          ;; last-update
+						      *dashboard-mode*)                    ;; use dashboard mode
+			       '()) ;; if rmt:get-tests-for-run fails it returns #f (broken I know).
 			   '()))
 	 (use-new    (dboard:tabdat-hide-not-hide tabdat))
 	 (tests-ht   (if (dboard:tabdat-filters-changed tabdat)
 			 (let ((ht (make-hash-table)))
 			   (dboard:rundat-tests-set! run-dat ht)