Eliot Miranda uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-eem.823.mcz

==================== Summary ====================

Name: Kernel-eem.823
Author: eem
Time: 3 December 2013, 11:46:14.717 am
UUID: b2a6c46e-4bf3-4ebd-b69f-a676648e52fc
Ancestors: Kernel-eem.822

AdditionalMethodState>>analogousCodeTo: needs to
reject other kinds of objects, not assume they're
AdditionalMethodState instances.

=============== Diff against Kernel-eem.822 ===============

Item was changed:
  ----- Method: AdditionalMethodState>>analogousCodeTo: (in category 'testing') -----
  analogousCodeTo: aMethodProperties
  	| bs |
+ 	self class == aMethodProperties class ifFalse:
- 	(bs := self basicSize) ~= aMethodProperties basicSize ifTrue:
  		[^false].
+ 	(bs := self basicSize) = aMethodProperties basicSize ifFalse:
+ 		[^false].
  	1 to: bs do:
  		[:i|
  		((self basicAt: i) analogousCodeTo: (aMethodProperties basicAt: i)) ifFalse:
  			[^false]].
  	^true!