diff --git a/src/SUnit-Core/TestSuite.class.st b/src/SUnit-Core/TestSuite.class.st
index 6a486bbe913..91c0e0d17c1 100644
--- a/src/SUnit-Core/TestSuite.class.st
+++ b/src/SUnit-Core/TestSuite.class.st
@@ -138,7 +138,7 @@ TestSuite >> runWith: aBlock [
 		do: [ :each |
 			aBlock value: each.
 			self announceTest: each.
-			self changed: each ] ]
+			self changed: each ] displayingProgress: [ :currentTest | currentTest className ] ]
 		ensure: [ self tearDown ]
 ]