Class String

at: index put: aValue

	(self includesKey: index)

		ifTrue: [<22 (aValue value) self index>]

		ifFalse: [self error: 'string indexing error' ]