Change send of #timeToRun: to self instead of SmalltalkCI to allo…

…w subclasses to override it

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