Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -2263,30 +2263,32 @@
    (lambda (db)
      (let ((numruns 0)
            (qry-str #f)
            (key-patt "")
 	     	   (keyvals  (if targetpatt (keys:target->keyval keys targetpatt) '())))
+     
     (for-each (lambda (keyval)
 		(let* ((key    (car keyval))
 		       (patt   (cadr keyval))
 		       (fulkey (conc ":" key))
 		       (wildtype (if (substring-index "%" patt) "like" "glob")))
+         
 		  (if patt
 		      (set! key-patt (conc key-patt " AND " key " " wildtype " '" patt "'"))
 		      (begin
 			(debug:print-error 0 *default-log-port* "searching for runs with no pattern set for " fulkey)
 			(exit 6)))))
 	      keyvals)
-   ; (print  runpatt " -- " key-patt)
-    (set! qry-str (conc "SELECT COUNT(id) FROM runs WHERE state != 'deleted' AND runname  like " runpatt  key-patt))
-  ;  (print qry-str )
-       (debug:print-info 11 *default-log-port* "db:get-num-runs START " runpatt)
-;       (sqlite3:for-each-row 
-;					 (lambda (count)
-;	  			    (set! numruns count))
-;				db
-;				qry-str)
+    ;(print  runpatt " -- " key-patt)
+    (set! qry-str (conc "SELECT COUNT(id) FROM runs WHERE state != 'deleted' AND runname  like '" runpatt "'" key-patt))
+    ;(print qry-str )
+       
+       (sqlite3:for-each-row 
+					 (lambda (count)
+	  			    (set! numruns count))
+				db
+				qry-str)
        (debug:print-info 11 *default-log-port* "db:get-num-runs END " runpatt)
        numruns))))
 
 
 ;; (sqlite3#fold-row proc3670 init3671 db-or-stmt3672 . params3673)>
@@ -2439,11 +2441,11 @@
 ;; register a test run with the db
 ;;
 ;; Use: (db:get-value-by-header (db:get-header runinfo)(db:get-rows runinfo))
 ;;  to extract info from the structure returned
 ;;
-(define (db:get-runs-by-patt dbstruct keys runnamepatt targpatt offset limit fields last-update) ;; test-name)
+(define (db:get-runs-by-patt dbstruct keys runnamepatt targpatt offset limit fields last-update  sort-order ) ;; test-name)
   (let* ((tmp      (runs:get-std-run-fields keys (or fields '("id" "runname" "state" "status" "owner" "event_time"))))
 	 (keystr   (car tmp))
 	 (header   (cadr tmp))
 	 (key-patt "")
 	 (runwildtype (if (substring-index "%" runnamepatt) "like" "glob"))
@@ -2462,15 +2464,17 @@
 	      keyvals)
     (set! qry-str (conc "SELECT " keystr " FROM runs WHERE state != 'deleted' AND runname " runwildtype " ? " key-patt 
 			(if last-update
 			       (conc " AND last_update >= " last-update " ")
 			       " ")
-			" ORDER BY event_time "
+			" ORDER BY event_time " sort-order " " 
 			(if limit  (conc " LIMIT " limit)   "")
 			(if offset (conc " OFFSET " offset) "")
 			";"))
     (debug:print-info 4 *default-log-port* "runs:get-runs-by-patt qry=" qry-str " " runnamepatt)
+    ;(print "runs:get-runs-by-patt qry=" qry-str " " runnamepatt)
+
     (vector header 
             (reverse
              (db:with-db dbstruct #f #f ;; reads db, does not write to it.
                          (lambda (db)
                            (sqlite3:fold-row

Index: rmt.scm
==================================================================
--- rmt.scm
+++ rmt.scm
@@ -751,12 +751,12 @@
   (rmt:send-receive 'set-run-status #f (list run-id run-status msg)))
 
 (define (rmt:update-run-event_time run-id)
   (rmt:send-receive 'update-run-event_time #f (list run-id)))
 
-(define (rmt:get-runs-by-patt  keys runnamepatt targpatt offset limit fields last-runs-update) ;; fields of #f uses default
-  (rmt:send-receive 'get-runs-by-patt #f (list keys runnamepatt targpatt offset limit fields last-runs-update)))
+(define (rmt:get-runs-by-patt  keys runnamepatt targpatt offset limit fields last-runs-update  #!key  (sort-order "asc")) ;; fields of #f uses default
+  (rmt:send-receive 'get-runs-by-patt #f (list keys runnamepatt targpatt offset limit fields last-runs-update sort-order)))
 
 (define (rmt:find-and-mark-incomplete run-id ovr-deadtime)
   ;; (if (rmt:send-receive 'have-incompletes? run-id (list run-id ovr-deadtime))
   (rmt:send-receive 'mark-incomplete run-id (list run-id ovr-deadtime))) ;; )
 

Index: tests.scm
==================================================================
--- tests.scm
+++ tests.scm
@@ -785,11 +785,11 @@
 ;;
 
 (define (tests:dashboard-body page pg-size keys numkeys  total-runs linktree area-name get-prev-links get-next-links flag run-patt target-patt)
   (let* ((start (* page pg-size)) 
 	       ;(runsdat   (rmt:get-runs "%" pg-size start (map (lambda (x)(list x "%")) keys)))
-         (runsdat   (rmt:get-runs-by-patt  keys run-patt target-patt start pg-size #f 0))
+         (runsdat   (rmt:get-runs-by-patt  keys run-patt target-patt start pg-size #f 0 sort-order: "desc"))
                     ; db:get-runs-by-patt   keys runnamepatt targpatt offset limit fields last-update   
 	       (header    (vector-ref runsdat 0))
 	       (runs      (vector-ref runsdat 1))
          (ctr 0)
          (test-runs-hash (tests:get-rest-data runs header numkeys))
@@ -882,10 +882,11 @@
                (get-next-links (lambda (page linktree total-runs)   
                             (let* ((link  (if (> total-runs (+ 10 (* page pg-size)))
                                    (s:a "next>>" 'href (conc  linktree "/page"  (+ page 1) ".html"))
                                    (s:a "" 'href (conc  linktree "/page" page  ".html")))))
                                link))) )
+          ;(print "total runs: " total-runs) 
           (s:output-new
 	   			 oup
 	   					(tests:dashboard-body page pg-size keys numkeys total-runs linktree area-name get-prev-links get-next-links #f run-patt target-patt)) ;; update this function
           (close-output-port oup)
          ; (set! page (+ 1 page))