Class Array

at: index put: value

	(self includesKey: index)

		ifTrue: [<5 value self index>]

		ifFalse: [ ^ self error: 'array indexing error '

			+ self size printString + ' '+ index printString ]