diff --git a/core/ui/ControlPanel/TestCasesAll.tid b/core/ui/ControlPanel/TestCasesAll.tid
index f88166943..571fb93c2 100644
--- a/core/ui/ControlPanel/TestCasesAll.tid
+++ b/core/ui/ControlPanel/TestCasesAll.tid
@@ -5,7 +5,7 @@ caption: {{$:/language/ControlPanel/TestCases/All/Caption}}
 \define lingo-base() $:/language/ControlPanel/
 <<lingo TestCases/All/Hint>>
 
-<$list filter="[all[tiddlers+shadows]tag[$:/tags/wiki-test-spec]type[text/vnd.tiddlywiki-multiple]]">
+<$list filter="[all[tiddlers+shadows]tag[$:/tags/wiki-test-spec]type[text/vnd.tiddlywiki-multiple]] [all[tiddlers+shadows]tag[$:/tags/wiki-test-spec-failing]type[text/vnd.tiddlywiki-multiple]]">
 
 <h2>
 
diff --git a/core/ui/ControlPanel/TestCasesFailed.tid b/core/ui/ControlPanel/TestCasesFailed.tid
index 6ec03c5a3..4ab2d062d 100644
--- a/core/ui/ControlPanel/TestCasesFailed.tid
+++ b/core/ui/ControlPanel/TestCasesFailed.tid
@@ -5,7 +5,7 @@ caption: {{$:/language/ControlPanel/TestCases/Failed/Caption}}
 \define lingo-base() $:/language/ControlPanel/
 <<lingo TestCases/Failed/Hint>>
 
-<$list filter="[all[tiddlers+shadows]tag[$:/tags/wiki-test-spec]type[text/vnd.tiddlywiki-multiple]]">
+<$list filter="[all[tiddlers+shadows]tag[$:/tags/wiki-test-spec]type[text/vnd.tiddlywiki-multiple]] [all[tiddlers+shadows]tag[$:/tags/wiki-test-spec-failing]type[text/vnd.tiddlywiki-multiple]]">
 
 <$transclude
 	$tiddler="$:/core/ui/TestCaseTemplate"
diff --git a/editions/tw5.com/tiddlers/testcases/TestCaseWidget/FailingTest.tid b/editions/tw5.com/tiddlers/testcases/TestCaseWidget/FailingTest.tid
index 4e3228f06..942c2e752 100644
--- a/editions/tw5.com/tiddlers/testcases/TestCaseWidget/FailingTest.tid
+++ b/editions/tw5.com/tiddlers/testcases/TestCaseWidget/FailingTest.tid
@@ -1,6 +1,6 @@
 title: TestCases/TestCaseWidget/FailingTest
 type: text/vnd.tiddlywiki-multiple
-tags: [[$:/tags/wiki-test-spec]]
+tags: [[$:/tags/wiki-test-spec-failing]]
 description: An example of a failing test
 
 title: Output