Index: dashboard-tests.scm
==================================================================
--- dashboard-tests.scm
+++ dashboard-tests.scm
@@ -36,10 +36,12 @@
 (include "run_records.scm")
 
 ;;======================================================================
 ;; C O M M O N
 ;;======================================================================
+
+(define *dashboard-comment-share-slot* #f)
 
 (define (dtests:get-pre-command #!key (default-override #f))
   (let ((cfg-ovrd (configf:lookup *configdat* "dashboard" "pre-command")))
     (or cfg-ovrd default-override "xterm -geometry 180x20 -e \"")))
 
@@ -291,11 +293,11 @@
 				  (let ((btn (iup:button status
 							 #:expand "HORIZONTAL" #:size "50x" #:font "Courier New, -10"
 							 #:action (lambda (x)
 								    (let ((t (iup:attribute x "TITLE")))
 								      (if (equal? t "WAIVED")
-									  (iup:show (dashboard-tests:waiver testdat 
+									  (iup:show (dashboard-tests:waiver run-id testdat 
 													    (if wtxtbox (iup:attribute wtxtbox "VALUE") #f)
 													    (lambda (c)
 													      (set! newcomment c)
 													      (if wtxtbox 
 														  (begin
@@ -351,11 +353,11 @@
     ;;     	#:expand "HORIZONTAL"
     ;;     	#:action (lambda (obj)
     ;;     		   (print "Refresh test data " stepname))
     )))
 
-(define (dashboard-tests:waiver testdat ovrdval cmtcmd)
+(define (dashboard-tests:waiver run-id testdat ovrdval cmtcmd)
   (let* ((wpatt (configf:lookup *configdat* "setup" "waivercommentpatt"))
 	 (wregx (if (string? wpatt)(regexp wpatt) #f))
 	 (wmesg (iup:label (if wpatt (conc "Comment must match pattern " wpatt) "")))
 	 (comnt (iup:textbox #:action (lambda (val a b)
 					(if wpatt

Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -1277,11 +1277,11 @@
 
 (if (args:get-arg "-mark-incompletes")
     (begin
       (if (not (launch:setup-for-run))
 	  (begin
-	    (debug:print 0 "Failed to setup, exiting") 
+	    (debug:print 0 "Failed to setup, exiting") b
 	    (exit 1)))
       (open-run-close db:find-and-mark-incomplete #f)
       (set! *didsomething* #t)))
 
 ;;======================================================================

Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -86,12 +86,12 @@
 	 (connection-info (rmt:get-connection-info run-id))
 	 (jparams         (db:obj->string params)))
     (if connection-info
 	;; use the server if have connection info
 	(let* ((dat     (http-transport:client-api-send-receive run-id connection-info cmd jparams))
-	       (res     (if dat (vector-ref dat 1) #f))
-	       (success (if dat (vector-ref dat 0) #f)))
+	       (res     (if (vector? dat) (vector-ref dat 1) #f))
+	       (success (if (vector? dat) (vector-ref dat 0) #f)))
 	  (http-transport:server-dat-update-last-access connection-info)
 	  (if success
 	      (db:string->obj res)
 	      ;; (if (< attemptnum 100)
 	      ;;     (begin

Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -672,15 +672,17 @@
      ;;
      ((not (hash-table-ref/default test-registry (runs:make-full-test-name test-name item-path) #f))
       (debug:print-info 4 "Pre-registering test " test-name "/" item-path " to create placeholder" )
       ;; always do firm registration now in v1.60 and greater ;; (eq? *transport-type* 'fs) ;; no point in parallel registration if use fs
       (rmt:general-call 'register-test run-id run-id test-name item-path)
-      (hash-table-set! test-registry (runs:make-full-test-name test-name item-path) 'done)
+      (if (rmt:get-test-id run-id test-name item-path)
+	  (hash-table-set! test-registry (runs:make-full-test-name test-name item-path) 'done))
       (if (not (eq? (hash-table-ref/default test-registry (runs:make-full-test-name test-name "") #f) 'done))
 	  (begin
 	    (rmt:general-call 'register-test run-id run-id test-name "")
-	    (hash-table-set! test-registry (runs:make-full-test-name test-name "") 'done)))
+	    (if (rmt:get-test-id run-id test-name "")
+		(hash-table-set! test-registry (runs:make-full-test-name test-name "") 'done))))
       (runs:shrink-can-run-more-tests-count)   ;; DELAY TWEAKER (still needed?)
       (if (and (null? tal)(null? reg))
 	  (list hed tal (append reg (list hed)) reruns)
 	  (list (runs:queue-next-hed tal reg reglen regfull)
 		(runs:queue-next-tal tal reg reglen regfull)

Index: tests/fullrun/megatest.config
==================================================================
--- tests/fullrun/megatest.config
+++ tests/fullrun/megatest.config
@@ -61,11 +61,11 @@
 # or for hard links
 
 # testcopycmd cp --remove-destination -rlv TEST_SRC_PATH/. TEST_TARG_PATH/.
 
 # FULL or 2, NORMAL or 1, OFF or 0
-synchronous 0
+synchronous 2
 # Throttle roughly scales the db access milliseconds to seconds delay
 throttle 0.2
 # Max retries allows megatest to re-check that a tests status has changed
 # as tests can have transient FAIL status occasionally
 maxretries 20
@@ -138,11 +138,11 @@
 
 # Server is required - slower but more resistant to Sqlite issues.
 # required yes
 
 # Start server when average query takes longer than this
-server-query-threshold -1
+server-query-threshold 15
 
 # daemonize yes
 # hostname #{scheme (get-host-name)}
 
 ## disks are: