'From Cuis 2.6 of 10 August 2010 [latest update: #540] on 29 August 2010 at 4:05 pm'!

!Socket class methodsFor: 'registry' stamp: 'ul 8/27/2010 23:24'!
register: anObject
	
	^self registry add: anObject! !

!Socket class methodsFor: 'registry' stamp: 'ul 8/27/2010 23:24'!
registry

	^Registry ifNil: [ Registry := WeakRegistry new ]! !

!Socket class methodsFor: 'registry' stamp: 'ul 8/27/2010 23:24'!
unregister: anObject
	
	^self registry remove: anObject ifAbsent: nil! !


!StandardFileStream class methodsFor: 'registry' stamp: 'ul 8/27/2010 23:24'!
register: anObject
	
	^self registry add: anObject! !

!StandardFileStream class methodsFor: 'registry' stamp: 'ul 8/27/2010 23:24'!
registry
	
	^Registry ifNil: [ Registry := WeakRegistry new ]! !

!StandardFileStream class methodsFor: 'registry' stamp: 'ul 8/27/2010 23:25'!
unregister: anObject
	
	^self registry remove: anObject ifAbsent: nil! !

