BUG: PositionableStream<<position: (wrong error message)

The error message displayed when an out of bounds position is set via
PositionableStream<<position: is wrong, the message displays the current
position rather than the bad position.

I think the statement:
^self errorSubscriptBounds: position.
should be:
^self errorSubscriptBounds: anInteger.

Chris