Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -979,23 +979,24 @@
 				   (let* ((run-record (hash-table-ref/default runs-hash run-id #f))
 					  (key-vals   (map (lambda (key)(db:get-value-by-header run-record runs-header key))
 							   *keys*))
 					  (run-name   (db:get-value-by-header run-record runs-header "runname"))
 					  (col-name   (conc (string-intersperse key-vals "\n") "\n" run-name))
-					  (run-path   (append key-vals (list run-name))))
-				     (hash-table-set! (dboard:data-get-run-keys *data*) run-id run-path)
-				     ;; (iup:attribute-set! (dboard:data-get-runs-matrix *data*)
-				     ;;    		 (conc rownum ":" colnum) col-name)
-				     ;; (hash-table-set! runid-to-col run-id (list colnum run-record))
-				     ;; Here we update the tests treebox and tree keys
-				     (tree:add-node tb "Runs" (append key-vals (list run-name))
-						    userdata: (conc "run-id: " run-id))
-				     (let ((path ;;(string-intersperse "/" 
-					    (append key-vals (list run-name))))
-				       (hash-table-set! (dboard:data-get-path-run-ids *data*) path run-id))
-				     ;; (set! colnum (+ colnum 1))
-				     ))
+					  (run-path   (append key-vals (list run-name)))
+					  (existing   (tree:find-node tb run-path)))
+				     (if (not (hash-table-ref/default (dboard:data-get-path-run-ids *data*) run-path #f))
+					 (begin
+					   (hash-table-set! (dboard:data-get-run-keys *data*) run-id run-path)
+					   ;; (iup:attribute-set! (dboard:data-get-runs-matrix *data*)
+					   ;;    		 (conc rownum ":" colnum) col-name)
+					   ;; (hash-table-set! runid-to-col run-id (list colnum run-record))
+					   ;; Here we update the tests treebox and tree keys
+					   (tree:add-node tb "Runs" run-path ;; (append key-vals (list run-name))
+							  userdata: (conc "run-id: " run-id))
+					   (hash-table-set! (dboard:data-get-path-run-ids *data*) run-path run-id)
+					   ;; (set! colnum (+ colnum 1))
+					   ))))
 				 run-ids)
 		       (iup:attribute-set! run-matrix "CLEARVALUE" "CONTENTS")
 		       (iup:attribute-set! run-matrix "CLEARATTRIB" "CONTENTS")
 		       (iup:attribute-set! run-matrix "NUMCOL" max-col )
 		       (iup:attribute-set! run-matrix "NUMLIN" (if (< max-row max-visible) max-visible max-row)) ;; min of 20

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -709,11 +709,11 @@
 ;; register a test run with the db
 ;;
 ;; Use: (db-get-value-by-header (db:get-header runinfo)(db:get-row runinfo))
 ;;  to extract info from the structure returned
 ;;
-(define (db:get-runs-by-patt db keys runnamepatt targpatt) ;; test-name)
+(define (db:get-runs-by-patt db keys runnamepatt targpatt offset limit) ;; test-name)
   (let* ((tmp      (runs:get-std-run-fields keys '("id" "runname" "state" "status" "owner" "event_time")))
 	 (keystr   (car tmp))
 	 (header   (cadr tmp))
 	 (res     '())
 	 (key-patt "")
@@ -729,11 +729,14 @@
 		      (set! key-patt (conc key-patt " AND " key " " wildtype " '" patt "'"))
 		      (begin
 			(debug:print 0 "ERROR: searching for runs with no pattern set for " fulkey)
 			(exit 6)))))
 	      keyvals)
-    (set! qry-str (conc "SELECT " keystr " FROM runs WHERE state != 'deleted' AND runname " runwildtype " ? " key-patt " ORDER BY event_time;"))
+    (set! qry-str (conc "SELECT " keystr " FROM runs WHERE state != 'deleted' AND runname " runwildtype " ? " key-patt " ORDER BY event_time"
+			(if limit  (conc " LIMIT " limit)   "")
+			(if offset (conc " OFFSET " offset) "")
+			";"))
     (debug:print-info 4 "runs:get-runs-by-patt qry=" qry-str " " runnamepatt)
     (sqlite3:for-each-row 
      (lambda (a . r)
        (set! res (cons (list->vector (cons a r)) res)))
      db 

Index: mt.scm
==================================================================
--- mt.scm
+++ mt.scm
@@ -39,11 +39,30 @@
 ;;
 ;; Use: (db-get-value-by-header (db:get-header runinfo)(db:get-row runinfo))
 ;;  to extract info from the structure returned
 ;;
 (define (mt:get-runs-by-patt keys runnamepatt targpatt)
-  (cdb:remote-run db:get-runs-by-patt #f keys runnamepatt targpatt))
+  (let loop ((runsdat  (cdb:remote-run db:get-runs-by-patt #f keys runnamepatt targpatt 0 500))
+	     (res      '())
+	     (offset   0)
+	     (limit    500))
+    (print "runsdat: " runsdat)
+    (let* ((header    (vector-ref runsdat 0))
+	   (runslst   (vector-ref runsdat 1))
+	   (full-list (append res runslst))
+	   (have-more (eq? (length runslst) limit)))
+      (debug:print 0 "header: " header " runslst: " runslst " have-more: " have-more)
+      (if have-more 
+	  (let ((new-offset (+ offset limit))
+		(next-batch (cdb:remote-run db:get-runs-by-patt #f keys runnamepatt targpatt offset limit)))
+	    (debug:print-info 4 "More than " limit " runs, have " (length full-list) " runs so far.")
+	    (debug:print-info 0 "next-batch: " next-batch)
+	    (loop next-batch
+		  full-list
+		  new-offset
+		  limit))
+	 (vector header full-list)))))
 
 ;;======================================================================
 ;;  T E S T S
 ;;======================================================================