Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -1700,11 +1700,11 @@
 		    (debug:print-info 0 *default-log-port* "action not recognised " action)))
 		 
 		 ;; actions that operate on one test at a time can be handled below
 		 ;;
 		 (let ((sorted-tests     (filter 
-					  vector?
+					  db:test-rec?
 					  (sort tests (lambda (a b)(let ((dira ;; (rmt:sdb-qry 'getstr 
 									  (db:test-get-rundir a)) ;; )  ;; (filedb:get-path *fdb* (db:test-get-rundir a)))
 									 (dirb ;; (rmt:sdb-qry 'getstr 
 									  (db:test-get-rundir b))) ;; ) ;; ((filedb:get-path *fdb* (db:test-get-rundir b))))
 								     (if (and (string? dira)(string? dirb))