--- a/TestCase.st	Sun Nov 17 15:31:29 2019 +0100
+++ b/TestCase.st	Tue Dec 03 11:05:36 2019 +0100
@@ -439,6 +439,23 @@
     ^ nil
 !
 
+doRunExpeccoRelatedUnitTestsOnly
+    "
+        self doRunExpeccoRelatedUnitTestsOnly
+    "
+
+    |runUnitTestsClass|
+
+    runUnitTestsClass := Smalltalk at:#RunUnitTests.
+    runUnitTestsClass isNil ifTrue:[
+        ^ false
+    ].
+
+    ^ runUnitTestsClass doRunExpeccoRelatedUnitTestsOnly
+
+    "Created: / 03-12-2019 / 11:03:06 / Stefan Reise"
+!
+
 isAbstract
         "Override to true if a TestCase subclass is Abstract and should not have
         TestCase instances built from it"