convertFromCompoundText | readStream converter | readStream := self readStream. ^ self class new: self size streamContents: [ :writeStream| converter := CompoundTextConverter new. converter ifNil: [^ self]. [readStream atEnd] whileFalse: [ writeStream nextPut: (converter nextFromStream: readStream)]]. CompoundTextConverter new -> DNU convertFromSystemString | readStream converter | readStream := self readStream. ^ self class new: self size streamContents: [ :writeStream| converter := LanguageEnvironment defaultSystemConverter. converter ifNil: [^ self]. ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ [readStream atEnd] whileFalse: [ writeStream nextPut: (converter nextFromStream: readStream)]]. systemConverterClass self subclassResponsibility. ^ Latin1TextConverter. What!!!! Stef