Hi,

as the title tells,

DataStream>>writeInteger: anInteger
"PRIVATE -- Write the contents of a SmallInteger."

byteStream nextInt32Put: anInteger "signed!!!!!"

Which strategy do we adopt?

I suggest using a fake LargeInteger...

objectToStore := (self objectIfBlocked: anObject) objectForDataStream: self.
objectToStore == anObject ifFalse: [typeID := self typeIDFor: objectToStore].

Of course, we must also care of LargeInteger materialization in 64bits spur.

I'm going to fix it unless someone has a better idea.

Nicolas