--- a/quickSelfTest/RunUnitTests.st	Thu Oct 12 11:24:40 2017 +0200
+++ b/quickSelfTest/RunUnitTests.st	Thu Oct 12 11:29:45 2017 +0200
@@ -128,6 +128,10 @@
 
 		    eachClass notNil ifTrue:[
 			eachClass isTestCaseLike ifTrue:[
+			    self
+				logInfo:('unit test class "%1" added.'
+				    bindWith:eachClassName).
+
 			    unitTestSuite addTest:eachClass suite.
 			].
 		    ] ifFalse:[
@@ -135,6 +139,10 @@
 			    logWarning:('unit test class "%1" is not loaded.'
 				bindWith:eachClassName).
 		    ].
+		] ifFalse:[
+		    self
+			logInfo:('unit test class "%1" skipped.'
+			    bindWith:eachClassName).
 		].
 	    ].
 	].