'From Cuis 2.4 of 17 June 2010 [latest update: #509] on 9 August 2010 at 1:52:16 pm'!

!LargePositiveInteger methodsFor: 'printing' stamp: 'jmv 8/9/2010 13:35'!
printOn: aStream
	"
	Denormal LargeIntegers such as
		LargePositiveInteger new: 4
	could have trouble printing
	"
	| n |
	n _ self normalize.
	n == self
		ifTrue: [ super printOn: aStream ]
		ifFalse: [ n printOn: aStream ]! !


!SystemDictionary methodsFor: 'housekeeping' stamp: 'jmv 8/9/2010 13:51'!
cleanCompactObsoleteClasses

	| cct |
	cct _ Smalltalk compactClassesArray.
	cct do: [ :c |
		c ifNotNil: [
			c isObsolete ifTrue: [ 
				cct at: c indexIfCompact put: nil ]]]! !

"Postscript:
Leave the line above, and replace the rest of this comment by a useful one.
Executable statements should follow this comment, and should
be separated by periods, with no exclamation points (!!).
Be sure to put any further comments in double-quotes, like this one."
Smalltalk cleanCompactObsoleteClasses.
Smalltalk recreateSpecialObjectsArray.
Smalltalk garbageCollect!

