'From Cuis 1.0 of 28 November 2009 [latest update: #337] on 29 December 2009 at 12:04:16 pm'!

!SystemDictionary methodsFor: 'retrieving' stamp: 'jmv 12/29/2009 12:03'!
allObjectsDo: aBlock 
	"Evaluate the argument, aBlock, for each object in the system
	 excluding SmallIntegers."

	| object lastObject |
	object _ self someObject.
	lastObject _ Object new.
	[lastObject == object] whileFalse: [
		aBlock value: object.
		object _ object nextObject.
	].! !

