subclass: aSubclassName isInterface: isInterface behavesLike:
aCollection instanceVariableNames: instVarNames classVariableNames:
classVarNames poolDictionaries: poolDictionaries category:aCategoryName
|m|
m:=(self subclass: aSubclassName
	instanceVariableNames: instVarNames
	classVariableNames:classVarNames
	poolDictionaries: poolDictionaries
	category: aCategoryName).
	(m class) instVarNamed:'behavesLike' put:aCollection;instVarNamed:'isInterface' 	put:isInterface.
		^(m class).