diff --git a/repository/SmalltalkCI-Core.package/SmalltalkCI.class/class/fold.on.block..st b/repository/SmalltalkCI-Core.package/SmalltalkCI.class/class/fold.on.block..st
index c0d75813..5ac8239d 100644
--- a/repository/SmalltalkCI-Core.package/SmalltalkCI.class/class/fold.on.block..st
+++ b/repository/SmalltalkCI-Core.package/SmalltalkCI.class/class/fold.on.block..st
@@ -2,5 +2,5 @@ folding
 fold: aTitle on: aStream block: aBlock
 	| timeToRun |
 	aStream nextPutAll: (self foldTitle: aTitle); flush.
-	timeToRun := SmalltalkCI timeToRun: [ aBlock value ].
+	timeToRun := self timeToRun: [ aBlock value ].
 	aStream nextPutAll: self newLine, ' > Done in ', (self stringFor: timeToRun maxDecimalPlaces: 3), 'ms.', self newLine; flush
\ No newline at end of file