Class ByteArray

at: index put: aValue

  (self includesKey: index)

    ifTrue: [(aValue between: 0 and: 255) ifTrue: [<22 aValue self index>]

      ifFalse: [self error: 'illegal insertion into byte array: ', aValue printString]]

    ifFalse: [self error: 'byte array indexing error' ]