Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -2459,14 +2459,16 @@
 ;;
 (define (runs:get-tests-matching-tags tagpatt)
   (let* ((tagdata (rmt:get-tests-tags))
          (res     '())) ;; list of tests that match one or more tags
     (for-each
-     (lambda (tag)
+     (lambda (row)
+       (let* ((tag (car row))
+              (tests (cdr row)))
        (if (patt-list-match tag tagpatt)
-           (set! res (append (hash-table-ref tagdata tag) res))))
-     (hash-table-keys tagdata))
+           (set! res (append tests res)))))
+     tagdata)
     res))
     
 
 ;; Update test_meta for all tests
 (define (runs:update-all-test_meta db)