Index: dashboard-tests.scm
==================================================================
--- dashboard-tests.scm
+++ dashboard-tests.scm
@@ -249,13 +249,13 @@
 ;;
 ;;======================================================================
 (define (examine-test db test-id) ;; run-id run-key origtest)
   (let* ((testdat       (rdb:get-test-data-by-id db test-id))
 	 (db-path       (conc *toppath* "/megatest.db"))
-	 (db-mod-time   (file-modification-time db-path))
-	 (last-update   (current-seconds))
-	 (request-update #f))
+	 (db-mod-time   0) ;; (file-modification-time db-path))
+	 (last-update   0) ;; (current-seconds))
+	 (request-update #t))
     (if (not testdat)
 	(begin
 	  (debug:print 0 "ERROR: No test data found for test " test-id ", exiting")
 	  (exit 1))
 	(let* ((run-id        (if testdat (db:test-get-run_id testdat) #f))

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -328,10 +328,22 @@
 			 steps)))))
 		tests))))
        runs)
       (set! *didsomething* #t)
       ))
+
+;;======================================================================
+;; Start the server - can be done in conjunction with -runall or -runtests (one day...)
+;;======================================================================
+(if (and (args:get-arg "-server")
+	 (not (or (args:get-arg "-runall")
+		  (args:get-arg "-runtests"))))
+    (let* ((toppath (setup-for-run))
+	   (db      (if toppath (open-db) #f)))
+      (if db 
+	  (server:start db (args:get-arg "-server"))
+	  (debug:print 0 "ERROR: Failed to setup for megatest"))))
 
 ;;======================================================================
 ;; full run
 ;;======================================================================
 
@@ -391,20 +403,10 @@
 		     (args:get-arg "-runtests")
 		     (args:get-arg "-itempatt")
 		     user
 		     (make-hash-table)))))
 
-;;======================================================================
-;; Start the server
-;;======================================================================
-(if (args:get-arg "-server")
-    (let* ((toppath (setup-for-run))
-	   (db      (if toppath (open-db) #f)))
-      (if db 
-	  (server:start db (args:get-arg "-server"))
-	  (debug:print 0 "ERROR: Failed to setup for megatest"))))
-
 ;;======================================================================
 ;; Rollup into a run
 ;;======================================================================
 (if (args:get-arg "-rollup")
     (general-run-call