--- a/TestSuite.st	Wed Mar 07 17:26:12 2018 +0100
+++ b/TestSuite.st	Wed Mar 07 23:03:48 2018 +0100
@@ -85,6 +85,14 @@
 	resources := someOrderedTestResourceClasses
 !
 
+testCount
+    "obsoleted, because all methods starting with 'test'
+     are considered to be tests; so this is a bad name;
+     please use countTests"
+
+    ^ self countTests
+!
+
 tests
 	tests isNil ifTrue: [tests := OrderedCollection new].
 	^tests