'From Squeak3.1alpha of 7 March 2001 [latest update: #4347] on 14 October 2001 at 2:55:30 pm'!
WriteStream subclass: #TranscriptStream
	instanceVariableNames: 'mutex '
	classVariableNames: 'AccessSema '
	poolDictionaries: ''
	category: 'Collections-Streams'!

!TranscriptStream methodsFor: 'private' stamp: 'svp 10/14/2001 14:47'!
semaphore
	^ mutex
		ifNil: [mutex _ Semaphore forMutualExclusion]! !

WriteStream subclass: #TranscriptStream
	instanceVariableNames: 'mutex '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Collections-Streams'!