[Pharo-project] Thread problem

Hi all I'm working on a threadSafeTranscript and I could not understand why the following code does not print something else than 1*100-102-103-104-105-106-107-108-109-110- |tt| tt := Transcript. [1 to: 10 do: [:i | tt show: i printString; show: '*'. Processor yield ]. tt flush ] fork. [100 to: 110 do: [:i | tt show: i printString; show: '-'. Processor yield ]. tt flush ] fork. Stef