@@ -977,11 +977,11 @@
 	       (open-run-close db:testmeta-update-field db test-name fld val)))))
      '(("author" 2)("owner" 3)("description" 4)("reviewed" 5)("tags" 9)))))
 
 ;; Update test_meta for all tests
 (define (runs:update-all-test_meta db)
-  (let ((test-names (get-all-legal-tests)))
+  (let ((test-names (tests:get-valid-tests)))
     (for-each 
      (lambda (test-name)
        (let* ((test-path    (conc *toppath* "/tests/" test-name))
 	      (test-configf (conc test-path "/testconfig"))
 	      (testexists   (and (file-exists? test-configf)(file-read-access? test-configf)))