Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -1400,11 +1400,10 @@
     (sort tdat (lambda (a b)
 		 (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
@@ -2253,11 +2253,11 @@
 		    (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)))
 			 ;;(print (cons a b))
-		      	 (set! res (alist->db:test-rec (db:qry-gen-alist qryvalstr (cons a b)))))
+		      	 (set! res (cons (alist->db:test-rec (db:qry-gen-alist qryvalstr (cons a b))) res)))
 		       
 		       db
 		       qry
 		       run-id
 		       )))