Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -86,12 +86,16 @@
 (if (not (launch:setup-for-run))
     (begin
       (print "Failed to find megatest.config, exiting") 
       (exit 1)))
 
-(define *useserver* (or(not (args:get-arg "-use-local"))
-			(configf:lookup *configdat* "dashboard" "use-server")))
+(define *useserver* (cond
+		     ((args:get-arg "-use-local") #f)
+		     ((configf:lookup *configdat* "dashboard" "use-server")
+		      (let ((ans (config:lookup *configdat* "dashboard" "use-server")))
+			(if (equal? ans "yes") #t #f)))
+		     (else #t)))
 
 (define *dbdir* (db:dbfile-path #f)) ;; (conc (configf:lookup *configdat* "setup" "linktree") "/.db"))
 (define *dbstruct-local*  (make-dbr:dbstruct path:  *dbdir*
 					     local: #t))
 (define *db-file-path* (db:dbfile-path 0))

Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -604,11 +604,11 @@
 	  ;; if found then return that matching test record
 	  (debug:print 4 "selstr: " selstr ", qrystr: " qrystr ", keyvals: " keyvals ", previous run ids found: " prev-run-ids)
 	  (if (null? prev-run-ids) #f
 	      (let loop ((hed (car prev-run-ids))
 			 (tal (cdr prev-run-ids)))
-		(let ((results (rmt:get-tests-for-run hed (conc test-name "/" item-path) '() '() #f #f #f #f #f #f)))
+		(let ((results (rmt:get-tests-for-run hed (conc test-name "/" item-path) '() '() #f #f #f #f #f #f #f)))
 		  (debug:print 4 "Got tests for run-id " run-id ", test-name " test-name ", item-path " item-path ": " results)
 		  (if (and (null? results)
 			   (not (null? tal)))
 		      (loop (car tal)(cdr tal))
 		      (if (null? results) #f