'From Squeak3.4 of 1 March 2003 [latest update: #5170] on 7 March 2003 at 3:04:44 pm'!

!TcCompoundType methodsFor: 'initialize-release' stamp: 'dew 3/7/2003 14:16'!
collectElementTypesFrom: aCollection

	elementType _ TcTypeGroup new.
	aCollection asOrderedCollection from: 1 to: (aCollection size min: 50) do: [:each |
		elementType _ elementType mergedWith: each collectorType]! !