'From Cuis 2.3 of 22 March 2010 [latest update: #472] on 24 March 2010 at 9:47:20 pm'!
"Change Set:		0475-RemoveMethodPropertiesClass
Date:			24 March 2010
Author:			Juan Vuletich

<your descriptive text goes here>"
MethodProperties becomeUncompact!


!AdditionalMethodState methodsFor: 'testing' stamp: 'jmv 3/24/2010 21:45'!
analogousCodeTo: aMethodProperties
	| bs |
	(bs _ self basicSize) ~= aMethodProperties basicSize ifTrue:
		[^false].
	1 to: bs do:
		[:i|
		((self basicAt: i) analogousCodeTo: (aMethodProperties basicAt: i)) ifFalse:
			[^false]].
	^true! !

Smalltalk removeClassNamed: #MethodProperties!
