In recent COG, I see:
LittleEndianBitmap>>byteAt: byteAddress put: byte
"Insert a byte into a Bitmap (little-endian version). N.B. Signedness
will be lost since byteAt: answers non-negative values.
We can add a signedByteAt: if needed."
| value longWord shift lowBits longAddr |
(byte < 0 or:[byte > 255]) ifTrue:[^self errorImproperStore].
value := byte < 0
ifTrue: [byte < 128 ifTrue:
[self errorImproperStore].
It looks suspect to me, wouldn't the intention be
ifTrue: [byte < -128 ifTrue:
[self errorImproperStore].