The Trunk: Kernel-eem.823.mcz

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!