Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -243,11 +243,14 @@
 			     (else #t))))
 			inlst))
 	 (vlst  (run-item-name->vectors newlst))
 	 ;; sort by second field
 	 (vlst-s1 (sort vlst (lambda (a b)
-			       (>= (string-length (vector-ref a 1))(string-length (vector-ref b 1))))))
+			       (let ((astr (vector-ref a 1))
+				     (bstr (vector-ref b 1)))
+				 (if (string=? astr "") #f #t)))))
+			;; (>= (string-length (vector-ref a 1))(string-length (vector-ref b 1))))))
 	 (vlst-s2 (sort vlst-s1 (lambda (a b)
 				  (string>= (vector-ref a 0)(vector-ref b 0))))))
     (map (lambda (x)
 	   (if (equal? (vector-ref x 1) "")
 	       (vector-ref x 0)

Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -800,11 +800,11 @@
 			  (hash-table-delete! dirs-to-remove dir-to-remove))
 			(debug:print 2 "Skipping removal of " dir-to-remove " for now as it still has references in the database")))))
 	    (sort (hash-table-keys dirs-to-remove) (lambda (a b)(> (string-length a)(string-length b)))))
 
 	   ;; remove the run if zero tests remain
-	   (let ((remtests (db-get-tests-for-run db (db:get-value-by-header run header "id"))))
+	   (let ((remtests (db-get-tests-for-run db (db:get-value-by-header run header "id") #f #f)))
 	     (if (null? remtests) ;; no more tests remaining
 		 (let* ((dparts  (string-split lasttpath "/"))
 			(runpath (conc "/" (string-intersperse 
 					    (take dparts (- (length dparts) 1))
 					    "/"))))