ファイル入出力関係ですが、いいですか?

1. ファイルlog.datに "test0, test1, test2" と書き出す("は書き出さない)。
2. ファイルlog.datの内容を読み込む。
3. カンマ(,)で区切られた文字列を両端の空白を削除して取得する。

"1"
strOut := 'test0, test1, test2'.
out := DataStream newFileNamed: 'log.dat'.
out nextPut: strOut.
out close.


"2と3"
in := FileStream readOnlyFileNamed: 'log.dat'.
strIn := in contentsOfEntireFile.
in close.
tx := TextDiffBuilder new.
cltn := tx split: strIn by:$,.
cltn do: [:str| Transcript show:(str trimBlanks); cr].


下の2と3の処理はうまく実行できました。

しかし、1で書き出すときにファイルの先頭に変な制御文字が出力されます。
代わりに FileStream print:strOut とすると、
(')がファイルの先頭と最後に追加されてしまいます。

みなさん、どうされていますか?