John,

> |bag  time delay |
> delay _ Delay forMilliseconds: 1.
> bag _ Bag new.
> 1 to: 1000 do: [:i |
> 	time _ Time millisecondClockValue.
> 	delay wait.
> 	bag add: (Time millisecondClockValue - time).
> ].
> bag sortedCounts.

3.2.1 VM on XP:
   a SortedCollection(994->1 6->2)


Cheers,
  - Andreas