diff --git a/repository/SmalltalkCI-Core.package/SCITestRunner.class/instance/runCase..st b/repository/SmalltalkCI-Core.package/SCITestRunner.class/instance/runCase..st
index 7b075ffd..7f49deb6 100644
--- a/repository/SmalltalkCI-Core.package/SCITestRunner.class/instance/runCase..st
+++ b/repository/SmalltalkCI-Core.package/SCITestRunner.class/instance/runCase..st
@@ -3,7 +3,7 @@ runCase: aTestCase
 	| result |
 	SmalltalkCI printDebug: aTestCase asString.
 	result := SCITestRunnerResult new testCase: aTestCase; yourself.
-	result time: (SmalltalkCI timeToRun: [
+	result time: (SmalltalkCI platformClass timeToRun: [
 		[ [ self basicRunCase: aTestCase ]
 			on: self class errorExceptions
 			do: [ :err |