Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -199,11 +199,11 @@
       (print ". Done. All ok.")))
 
 (if (not (null? remargs))
     (begin
       (print "Unrecognised arguments: " (string-intersperse remargs " "))
-      (exit)))
+      ))
 
 (if (args:get-arg "-h")
     (begin
       (print help)
       (exit)))
@@ -3624,10 +3624,26 @@
 					    (runloop (car runtal)(cdr runtal) (+ run-num 1) newdoneruns)
 					    (escapeloop #t) ;; (dboard:tabdat-layout-update-ok tabdat)
 					    ))))))))) ;;  new-run-start-row
 		)))
 	(debug:print 2 *default-log-port* "no tabdat for run-times-tab-updater"))))
+
+(define (dashboard:calc-key-patterns tabdat)
+  ;; generate key patterns from the target stored in tabdat
+  (let* ((dbkeys  (dboard:tabdat-dbkeys tabdat)))
+    (let ((fres   (if (dboard:tabdat-target tabdat)
+		      (let ((ptparts (append (dboard:tabdat-target tabdat)(make-list (length dbkeys) "%"))))
+			(map (lambda (k v)(list k v)) dbkeys ptparts))
+		      (let ((res '()))
+			(for-each (lambda (key)
+				    (if (not (equal? key "runname"))
+					(let ((val (hash-table-ref/default (dboard:tabdat-searchpatts tabdat) key #f)))
+					  (if val (set! res (cons (list key val) res))))))
+				  dbkeys)
+			res))))
+      fres)))
+
 
 ;; handy trick for printing a record
 ;;
 ;;   (pp (dboard:tabdat->alist tabdat))
 ;; 
@@ -3636,28 +3652,20 @@
 ;; (define (tabdat-values tabdat)
 
 ;; runs update-rundat using the various filters from the gui
 ;;
 (define (dashboard:do-update-rundat tabdat)
-  (dboard:update-rundat
-   tabdat
-   (hash-table-ref/default (dboard:tabdat-searchpatts tabdat) "runname" "%")
-   (dboard:tabdat-numruns tabdat)
-   (hash-table-ref/default (dboard:tabdat-searchpatts tabdat) "test-name" "%/%")
-   ;; generate key patterns from the target stored in tabdat
-   (let* ((dbkeys  (dboard:tabdat-dbkeys tabdat)))
-     (let ((fres   (if (dboard:tabdat-target tabdat)
-                       (let ((ptparts (append (dboard:tabdat-target tabdat)(make-list (length dbkeys) "%"))))
-                         (map (lambda (k v)(list k v)) dbkeys ptparts))
-                       (let ((res '()))
-                         (for-each (lambda (key)
-                                     (if (not (equal? key "runname"))
-                                         (let ((val (hash-table-ref/default (dboard:tabdat-searchpatts tabdat) key #f)))
-                                           (if val (set! res (cons (list key val) res))))))
-                                   dbkeys)
-                         res))))
-       fres))))
+  (let* ((runnamepatt (hash-table-ref/default (dboard:tabdat-searchpatts tabdat) "runname" "%"))
+	 (numruns     (dboard:tabdat-numruns tabdat))
+	 (testnamepatt (hash-table-ref/default (dboard:tabdat-searchpatts tabdat) "test-name" "%/%"))
+	 (keypatts     (dashboard:calc-key-patterns tabdat)))
+    (dboard:update-rundat
+     tabdat
+     runnamepatt
+     numruns
+     testnamepatt
+     keypatts)))
 
 (define (dashboard:runs-tab-updater commondat tab-num)
   (debug:catch-and-dump 
    (lambda ()
      (let* ((tabdat (dboard:common-get-tabdat commondat tab-num: tab-num))

Index: debugprint.scm
==================================================================
--- debugprint.scm
+++ debugprint.scm
@@ -32,11 +32,11 @@
       		      (args:get-arg "-debug-noprop")
       		      (get-environment-variable "MT_DEBUG_MODE"))))
     (verbosity (debug:calc-verbosity debugstr 'q))
     (debug:check-verbosity (verbosity) debugstr)
     ;; if we were handed a bad verbosity rule then we will override it with 1 and continue
-    (if (verbosity)(verbosity 1))
+    (if (not (verbosity))(verbosity 1))
     (if (and (not (args:get-arg "-debug-noprop"))
       	     (or (args:get-arg "-debug")
       		 (not (get-environment-variable "MT_DEBUG_MODE"))))
       	(set-environment-variable! "MT_DEBUG_MODE" (if (list? (verbosity))
       				    (string-intersperse (map conc (verbosity)) ",")

Index: runsmod.scm
==================================================================
--- runsmod.scm
+++ runsmod.scm
@@ -245,16 +245,18 @@
 	  (hash-table-set! *runs:denoise* key currtime)
 	  #t)
 	#f)))
 
 (define *too-soon-delays* (make-hash-table))
+(define *last-test-launch* 0)
 
 ;; to-soon delay, when matching event happened in less than dseconds delay wseconds
 ;;
 (define (runs:too-soon-delay key dseconds wseconds)
   (let* ((last-time (hash-table-ref/default *too-soon-delays* key #f)))
-    (if (and last-time
+    (if (and (> (- (current-seconds) *last-test-launch*) 5) ;; be aggressive for five seconds after starting a test
+	     last-time
 	     (< (- (current-seconds) last-time) dseconds))
 	(begin
 	  (debug:print-info 4 *default-log-port* "Whoa, slow down there ... "key" has been too recently seen.")
 	  (thread-sleep! wseconds)))
     (hash-table-set! *too-soon-delays* key (current-seconds))))
@@ -1138,10 +1140,11 @@
       ;; we are going to reset all the counters for test retries by setting a new hash table
       ;; this means they will increment only when nothing can be run
       (set! *max-tries-hash* (make-hash-table))
       
       (run:test run-id run-info keyvals runname test-record flags #f test-registry all-tests-registry runsdat testdat)
+      (set! *last-test-launch* (current-seconds))
       (runs:incremental-print-results run-id)
       (hash-table-set! test-registry (db:test-make-full-name test-name item-path) 'running)
       (runs:shrink-can-run-more-tests-count runsdat)  ;; DELAY TWEAKER (still needed?)
       ;; (thread-sleep! *global-delta*)
       (if (or (not (null? tal))(not (null? reg)))

ADDED   ulex-dual/Makefile
Index: ulex-dual/Makefile
==================================================================
--- /dev/null
+++ ulex-dual/Makefile
@@ -0,0 +1,9 @@
+all : ulex.pdf ulex.png
+
+ulex.pdf : ulex.dot
+	dot -Tpdf ulex.dot -o ulex.pdf
+
+ulex.png : ulex.dot
+	dot -Tpng ulex.dot -o ulex.png
+
+

ADDED   ulex-dual/ulex.dot
Index: ulex-dual/ulex.dot
==================================================================
--- /dev/null
+++ ulex-dual/ulex.dot
@@ -0,0 +1,136 @@
+//  Copyright 2006-2017, Matthew Welland.
+// 
+// This file is part of Megatest.
+// 
+//     Megatest is free software: you can redistribute it and/or modify
+//     it under the terms of the GNU General Public License as published by
+//     the Free Software Foundation, either version 3 of the License, or
+//     (at your option) any later version.
+// 
+//     Megatest is distributed in the hope that it will be useful,
+//     but WITHOUT ANY WARRANTY; without even the implied warranty of
+//     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+//     GNU General Public License for more details.
+// 
+//     You should have received a copy of the GNU General Public License
+//     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.
+
+digraph G {
+
+  // graph[center=true, margin=0.2, nodesep=0.1, ranksep=0.3]
+
+  layout=neato;
+  // layout=fdp;
+  // overlap=scalexy; //false, compress, ...
+  overlap=scalexy;
+  // sep="+1"; // 0.1, +1
+  sep="-0.1";
+ 
+  user_program [label="user program"];
+  
+  subgraph cluster_1 {
+    node [style=filled,shape=oval];
+    label = "caller";
+    color=brown;
+
+    send_receive [label="(send-receive uconn\n   host-port qrykey cmd data)"];
+    send [label="(send uconn host-port\n    qrykey cmd data)"];
+    ulex_cmd_loopcaller [label="(ulex-cmd-loop uconn)"];
+    ulex_handlercaller [label="(ulex-handler uconn rdat)"];
+    mailbox [label="mailbox\n\nrdat\n...",shape=box];
+    
+    send_receive -> send;
+    ulex_cmd_loopcaller -> ulex_handlercaller;
+    ulex_handlercaller -> mailbox;
+    mailbox -> send_receive;
+  }
+
+  subgraph cluster_2 {
+    node [shape=oval];
+    label = "listener";
+    color=green;
+
+    ulex_cmd_loop [label="(ulex-cmd-loop uconn)"];
+    ulex_handler [label="(ulex-handler \nuconn rdat)"];
+    add_to_work_queue [label="(add-to-work-queue\n  uconn rdat)"];
+    queue [label="queue\n\nrdat\n...",shape=box];
+    process_work_queue [label="(process-work-queue uconn)"];
+    do_work [label="(do-work uconn rdat)\nrdat: '(rem-host-port qrykey cmd params)"];
+    user_proc [label="(proc rem-host-port\n    qrykey cmd params)\n;; proc supplied by user"];
+    sendlis [label="(send uconn host-port\n    qrykey 'response result)"];
+    
+    ulex_cmd_loop -> ulex_handler [label="rdat"];
+    ulex_handler -> add_to_work_queue [label="rdat"];
+
+    add_to_work_queue -> queue [label="rdat"];
+
+    subgraph cluster_3 {
+      label = "remote work";
+      color=blue;
+      
+      queue -> process_work_queue [label="rdat"];
+      process_work_queue -> do_work [label="rdat"];
+      do_work -> user_proc; // [label="rdat: '(rem-host-port\n   qrykey cmd params)"];
+    }
+  }
+
+  user_proc -> sendlis;
+  user_program -> send_receive;
+  send_receive -> user_program;
+  
+  send -> ulex_cmd_loop [label="rdat: '(host-port\n  qrykey cmd data)"];
+  sendlis -> ulex_cmd_loopcaller [label="rdat: '(host-port qrykey\n  'response result)"];
+  ulex_handler -> send [label="'ack"];
+  ulex_handlercaller -> sendlis [label="'ack"];
+  
+}
+
+
+// 	check_available_queue       -> remove_entries_over_10s_old;
+// 	remove_entries_over_10s_old -> set_available [label="num_avail < 3"];
+// 	remove_entries_over_10s_old -> exit [label="num_avail > 2"];
+// 
+// 	set_available               -> delay_2s;
+// 	delay_2s          -> check_place_in_queue;
+// 
+// 	check_place_in_queue        -> "http:transport-launch" [label="at head"];
+// 	check_place_in_queue        -> exit [label="not at head"];
+// 
+// 	"client:login"              -> "server:shutdown" [label="login failed"];
+// 	"server:shutdown"           -> exit;	
+// 
+// 	subgraph cluster_2 {
+// 		"http:transport-launch"       -> "http:transport-run";
+// 		"http:transport-launch"       -> "http:transport-keep-running";
+// 
+// 		"http:transport-keep-running" -> "tests running?";
+// 		"tests running?"              -> "client:login" [label=yes];
+// 		"tests running?"              -> "server:shutdown" [label=no];
+// 		"client:login"                -> delay_5s [label="login ok"];
+// 		delay_5s                      -> "http:transport-keep-running";
+// 	}
+// 
+	// start_server -> "server_running?";
+	// "server_running?" -> set_available [label="no"];
+	// "server_running?" -> delay_2s [label="yes"];
+	// delay_2s -> "still_running?";
+	// "still_running?" -> ping_server [label=yes];
+	// "still_running?" -> set_available [label=no];
+	// ping_server -> exit [label=alive];
+	// ping_server -> remove_server_record [label=dead];
+	// remove_server_record -> set_available;
+	// set_available -> avail_delay [label="delay 3s"];
+	// avail_delay -> "first_in_queue?";
+	// 
+	// "first_in_queue?" -> set_running [label=yes];
+	// set_running -> get_next_port -> handle_requests;
+	// "first_in_queue?" -> "dead_entry_in_queue?" [label=no];
+	// "dead_entry_in_queue?" -> "server_running?" [label=no];
+	// "dead_entry_in_queue?" -> "remove_dead_entries" [label=yes];
+	// remove_dead_entries -> "server_running?";
+	// 
+	// handle_requests -> start_shutdown [label="no traffic\nno running tests"];
+	// handle_requests -> shutdown_request;
+	// start_shutdown -> shutdown_delay;
+	// shutdown_request -> shutdown_delay;
+	// shutdown_delay -> exit;

ADDED   ulex-dual/ulex.pdf
Index: ulex-dual/ulex.pdf
==================================================================
--- /dev/null
+++ ulex-dual/ulex.pdf
cannot compute difference between binary files

ADDED   ulex-dual/ulex.png
Index: ulex-dual/ulex.png
==================================================================
--- /dev/null
+++ ulex-dual/ulex.png
cannot compute difference between binary files