@@ -623,11 +623,12 @@
 ;; A gui for launching tests
 ;;
 (define (dashboard:run-controls)
   (let* ((targets       (make-hash-table))
 	 (test-records  (make-hash-table))
-	 (test-names    (tests:get-valid-tests *toppath* '()))
+	 (test-registry (tests:get-all)) ;; (tests:get-valid-tests *toppath* '()))
+	 (test-names    (hash-table-keys test-registry))
 	 (sorted-testnames #f)
 	 (action        "-runtests")
 	 (cmdln         "")
 	 (runlogs       (make-hash-table))
 	 (key-listboxes #f)