'From Cuis 6.0 [latest update: #5305] on 22 June 2022 at 9:47:19 pm'!

!Time class methodsFor: 'general inquiries' stamp: 'KenD 6/22/2022 21:46:14'!
millisecondsToRun: timedBlock 
	"Answer the number of milliseconds timedBlock takes to return its value."

	| initialMilliseconds |
	[initialMilliseconds _ self localMillisecondClock.
	timedBlock value.
	^self localMillisecondClock - initialMilliseconds] valueUnpreemptively! !
