+ 	^changes select: [:change | change isClassSuperclass]!
+ 	^changes select: [:change | change isClassComment]!
+ 	"Answers all the changes to the class with this name"
+ 	^ self classGroupFor: (DSBasicClassChange className: aClassName)!
+ 	^changes select: [:change | change isClassRemoved]!
+ 	^changes select: [:change | change isClassName]!
+ 	^changes select: [:change | change isClassInstVars]!
+ 	"Answers all the changes to the same class as protoChange. Returns the list in reverse order from the delta"
+ 	protoChange isClassChange ifFalse: [^ Array new].
+ 		change inClassGroupFor: protoChange withClassName: className])!