Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -1396,14 +1396,15 @@
 						 last-update)
 					     *dashboard-mode*)
 		  '()))) ;; get 'em all
     ;; (debug:print 0 *default-log-port* "dboard:get-tests-dat: got " (length tdat) " test records for run " run-id)
     (sort tdat (lambda (a b)
-		 (let* ((aval (vector-ref a 2))
-			(bval (vector-ref b 2))
+		 (let* ((aval (db:test-get-testname a));;(vector-ref a 2))
+			(bval (db:test-get-testname b));;(vector-ref b 2))
 			(anum (string->number aval))
 			(bnum (string->number bval)))
+		 	(print a b)
 		   (if (and anum bnum)
 		       (< anum bnum)
 		       (string<= aval bval)))))))
 
 

Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -2251,11 +2251,17 @@
 	(debug:print-info 8 *default-log-port* "db:get-tests-for-run run-id=" run-id ", qry=" qry)
 	(db:with-db dbstruct run-id #f
 		    (lambda (db)
 		      (sqlite3:for-each-row 
 		       (lambda (a . b) ;; id run-id testname state status event-time host cpuload diskfree uname rundir item-path run-duration final-logf comment)
-			 (set! res (cons (apply vector a b) res))) ;; id run-id testname state status event-time host cpuload diskfree uname rundir item-path run-duration final-logf comment) res)))
+			 ;;(set! res (cons (apply vector a b) res))) ;; id run-id testname state status event-time host cpuload diskfree uname rundir item-path run-duration final-logf comment) res)))
+			 ;;(print (cons a b))
+		      	 (set! res (alist->db:test-rec (db:qry-gen-alist qryvalstr (cons a b))))
+
+		      	 (print (db:test-rec->alist res)))
+
+
 		       db
 		       qry
 		       run-id
 		       )))
 	(case qryvals

Index: db_records.scm
==================================================================
--- db_records.scm
+++ db_records.scm
@@ -80,11 +80,26 @@
 					((item_path "") : string)
 					((run_duration -1) : number)
 					((final_logf "") : string)
 					((comment "") : string)
 					((process_id -1) : number)
-					((archived #f) : boolean))
+					((archived -1) : number))
+
+(define (db:qry-gen-alist qrystr listvals)
+	(define listqry (string-split qrystr ","))
+	(if (null? listqry)
+	      '()
+	      (let loop ((strhead (car listqry))
+			 (strtail (cdr listqry))
+			 (valhead (car listvals))
+			 (valtail (cdr listvals))
+			 (res '()))
+		(let* ((slot-val-pair (cons (string->symbol strhead) valhead)))
+		  (if (or (null? strtail)
+		  		(null? valtail))
+		      (cons slot-val-pair res);;(print strhead valhead));;(cons (cons (string->symbol strhead) valhead) res))
+		      (loop (car strtail)(cdr strtail)(car valtail)(cdr valtail)(cons slot-val-pair res)))))))
 
 (define (db:test-get-id			typed-rec)   (db:test-rec-id 		typed-rec))
 (define (db:test-get-run_id 	typed-rec)	 (db:test-rec-run_id 	typed-rec))
 (define (db:test-get-testname   typed-rec)   (db:test-rec-testname 	typed-rec))
 (define (db:test-get-state      typed-rec)   (db:test-rec-state 	typed-rec))