'From Cuis 2.6 of 10 August 2010 [latest update: #540] on 1 September 2010 at 2:48:42 pm'!

!Number methodsFor: 'printing' stamp: 'laza 3/29/2004 12:50'!
storeOn: aStream 
	self printOn: aStream! !


!Integer methodsFor: 'bit manipulation' stamp: 'dwh 8/18/1999 21:57'!
>> shiftAmount  "right shift"
	shiftAmount < 0 ifTrue: [self error: 'negative arg'].
	^ self bitShift: 0 - shiftAmount! !

LargePositiveInteger removeSelector: #printOn:!
Integer removeSelector: #romanString!
