Index: api.scm
==================================================================
--- api.scm
+++ api.scm
@@ -216,10 +216,11 @@
 	    ((get-all-run-ids)              (db:get-all-run-ids dbstruct))
 	    ((get-prev-run-ids)             (apply db:get-prev-run-ids dbstruct params))
 	    ((get-run-ids-matching-target)  (apply db:get-run-ids-matching-target dbstruct params))
 	    ((get-runs-by-patt)             (apply db:get-runs-by-patt dbstruct params))
 	    ((get-run-name-from-id)         (apply db:get-run-name-from-id dbstruct params))
+	    ((get-run-stats)                (apply db:get-run-stats dbstruct params))
 
 	    ;; STEPS
 	    ((get-steps-data)               (apply db:get-steps-data dbstruct params))
 	    ((get-steps-for-test)           (apply db:get-steps-for-test dbstruct params))
 

Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -90,12 +90,14 @@
 
 (define *useserver* (or(not (args:get-arg "-use-local"))
 			(configf:lookup *configdat* "dashboard" "use-server")))
 
 (define *dbdir* (db:dbfile-path #f)) ;; (conc (configf:lookup *configdat* "setup" "linktree") "/.db"))
-(define *dbstruct-local*  (make-dbr:dbstruct path:  *dbdir*
-					     local: #t))
+(define *dbstruct-local*  (if *useserver*
+			      #f
+			      (make-dbr:dbstruct path:  *dbdir*
+						 local: #t)))
 (define *db-file-path* (db:dbfile-path 0))
 
 ;; HACK ALERT: this is a hack, please fix.
 (define *read-only* (not (file-read-access? *db-file-path*)))
 

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -1822,50 +1822,38 @@
 
 ;; get some basic run stats
 ;;
 ;; ( (runname (( state  count ) ... ))
 ;;   (   ...  
-(define (db:get-run-stats dbstruct)
-  (let* ((dbdat        (db:get-db dbstruct #f))
+(define (db:get-run-stats dbstruct run-id run-name)
+  (let* ((dbdat        (db:get-db dbstruct run-id))
 	 (db           (db:dbdat-get-db dbdat))
 	 (totals       (make-hash-table))
 	 (curr         (make-hash-table))
 	 (res          '())
 	 (runs-info    '()))
     ;; First get all the runname/run-ids
-    (db:delay-if-busy dbdat)
-    (sqlite3:for-each-row
-     (lambda (run-id runname)
-       (set! runs-info (cons (list run-id runname) runs-info)))
-     db
-     "SELECT id,runname FROM runs WHERE state != 'deleted' ORDER BY event_time DESC;") ;; If you change this to the more logical ASC please adjust calls to db:get-run-stats
-    ;; for each run get stats data
-    (for-each
-     (lambda (run-info)
-       ;; get the net state/status counts for this run
-       (let* ((run-id   (car  run-info))
-	      (run-name (cadr run-info)))
-	 (db:with-db
-	  dbstruct
-	  run-id
-	  #f
-	  (lambda (db)
-	    (sqlite3:for-each-row
-	     (lambda (state status count)
-	       (let ((netstate (if (equal? state "COMPLETED") status state)))
-		 (if (string? netstate)
-		     (begin
-		       (hash-table-set! totals netstate (+ (hash-table-ref/default totals netstate 0) count))
-		       (hash-table-set! curr   netstate (+ (hash-table-ref/default curr   netstate 0) count))))))
-	     db
-	     "SELECT state,status,count(id) FROM tests AS t GROUP BY state,status ORDER BY state,status DESC;")
-	    ;; add the per run counts to res
-	    (for-each (lambda (state)
-			(set! res (cons (list run-name state (hash-table-ref curr state)) res)))
-		      (sort (hash-table-keys curr) string>=))
-	    (set! curr (make-hash-table))))))
-     runs-info)
+    ;; (db:delay-if-busy dbdat)
+    (db:with-db
+     dbstruct
+     run-id
+     #f
+     (lambda (db)
+       (sqlite3:for-each-row
+	(lambda (state status count)
+	  (let ((netstate (if (equal? state "COMPLETED") status state)))
+	    (if (string? netstate)
+		(begin
+		  (hash-table-set! totals netstate (+ (hash-table-ref/default totals netstate 0) count))
+		  (hash-table-set! curr   netstate (+ (hash-table-ref/default curr   netstate 0) count))))))
+	db
+	"SELECT state,status,count(id) FROM tests AS t GROUP BY state,status ORDER BY state,status DESC;")
+       ;; add the per run counts to res
+       (for-each (lambda (state)
+		   (set! res (cons (list run-name state (hash-table-ref curr state)) res)))
+		 (sort (hash-table-keys curr) string>=))
+       (set! curr (make-hash-table))))
     (for-each (lambda (state)
 		(set! res (cons (list "Totals" state (hash-table-ref totals state)) res)))
 	      (sort (hash-table-keys totals) string>=))
     res))
 
@@ -3162,11 +3150,11 @@
 		  (if (null? tal)
 		      (map cdr (hash-table->alist tests-hash)) ;; return a list of the most recent tests
 		      (loop (car tal)(cdr tal))))))))))
 
 (define (db:delay-if-busy dbdat #!key (count 6))
-  (if (not (configf:lookup *configdat* "server" "delay-on-busy"))
+  (if #f ;; (not (configf:lookup *configdat* "server" "delay-on-busy"))
       (and dbdat (db:dbdat-get-db dbdat))
       (if dbdat
 	  (let* ((dbpath (db:dbdat-get-path dbdat))
 		 (db     (db:dbdat-get-db   dbdat)) ;; we'll return this so (db:delay--if-busy can be called inline
 		 (dbfj   (conc dbpath "-journal")))

Index: dcommon.scm
==================================================================
--- dcommon.scm
+++ dcommon.scm
@@ -400,11 +400,13 @@
 
 (define (dcommon:run-stats dbstruct)
   (let* ((stats-matrix (iup:matrix expand: "YES"))
 	 (changed      #f)
 	 (updater      (lambda ()
-			 (let* ((run-stats    (db:get-run-stats dbstruct))
+			 (let* ((run-stats    (if dbstruct
+						  (db:get-run-stats dbstruct)
+						  (rmt:get-all-run-stats)))
 				(indices      (common:sparse-list-generate-index run-stats)) ;;  proc: set-cell))
 				(row-indices  (car indices))
 				(col-indices  (cadr indices))
 				(max-row      (if (null? row-indices) 1 (apply max (map cadr row-indices))))
 				(max-col      (if (null? col-indices) 1 

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -327,11 +327,12 @@
    (lambda ()
      (thread-sleep! 0.05) ;; delay for startup
      (let ((legacy-sync (common:legacy-sync-required))
 	   (debug-mode  (debug:debug-mode 1))
 	   (last-time   (current-seconds)))
-       (if (common:legacy-sync-recommended)
+       (if legacy-sync
+	;;	(common:legacy-sync-recommended))
 	   (let loop ()
 	     ;; sync for filesystem local db writes
 	     ;;
 	     (let ((start-time      (current-seconds))
 		   (servers-started (make-hash-table)))

Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -622,10 +622,30 @@
 			   (not (null? tal)))
 		      (loop (car tal)(cdr tal))
 		      (if (null? results) #f
 			  (car results))))))))))
 
+;; call with run-id #f
+;;
+(define (rmt:get-all-run-stats)
+  (let* ((runs-dat (rmt:get-runs "%" #f #f '()))
+	 (header   (db:get-header runs-dat))
+	 (runs     (db:get-rows   runs-dat)))
+    (fold (lambda (run currdat)
+	    (let* ((run-id   (db:get-value-by-header run header "id"))
+		   (run-name (db:get-value-by-header run header "runname")))
+	      (if (and run-id run-name)
+		  (append (rmt:get-run-stats run-id run-name) currdat)
+		  (begin
+		    (debug:print 0 "ERROR: Bad run-id or run-name in " run)
+		    currdat))))
+	  '()
+	  runs)))
+
+(define (rmt:get-run-stats run-id run-name)
+  (rmt:send-receive 'get-run-stats run-id (list run-id run-name)))
+
 ;;======================================================================
 ;;  S T E P S
 ;;======================================================================
 
 ;; Getting steps is more complicated.