@@ -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))