Beside, the ANSI behaviour you are looking for is in ReadWriteStream.
So maybe no use to change WriteStream.

stream := ReadWriteStream with: 'something'.
stream contents.		"=> something"
stream position: 2.
stream contents.		"=> something"
stream nextPut: $Z.
stream contents.		"=> soZething"

Nicolas

Damien Cassou a écrit :
> Do you think that the following behavior is desired?
> 
> stream := WriteStream with: 'something'.
> stream contents.                     => 'something'
> stream position: 2.
> stream contents.                     => 'so'
> 
> We get the same result on Squeak and VisualWorks.
> 
> Based on ANSI, #contents must return 'something' on both cases.
>