Andreas Raab uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-ar.229.mcz

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

Name: Kernel-ar.229
Author: ar
Time: 26 August 2009, 8:42:37 am
UUID: fad5617c-3a41-4c4e-80af-d8b2234cca10
Ancestors: Kernel-dtl.226, Kernel-djr.228

Merging Kernel-djr.228:

CompiledMethod>>= seems to be broken. Attempt to fix it.

MethodProperties>>analogousCodeTo: calls Pragma>>analogousCodeTo: which does not exist.

Further assume when both properties are nil and both pragmas are empty, its equal.

=============== Diff against Kernel-dtl.226 ===============

Item was changed:
  ----- Method: MethodProperties>>analogousCodeTo: (in category 'testing') -----
  analogousCodeTo: aMethodProperties
  	pragmas
  		ifNil: [aMethodProperties pragmas notEmpty ifTrue: [^false]]
  		ifNotNil:
+ 			[pragmas size ~= aMethodProperties pragmas size ifTrue:
- 			[aMethodProperties pragmas isEmpty ifTrue: [^false].
- 			 pragmas size ~= aMethodProperties pragmas size ifTrue:
  				[^false].
  			 pragmas with: aMethodProperties pragmas do:
  				[:mine :others|
  				(mine analogousCodeTo: others) ifFalse: [^false]]].
+ 	(self propertiesIsNil and: [aMethodProperties propertiesIsNil]) ifTrue: [^true].
  	^(self hasAtLeastTheSamePropertiesAs: aMethodProperties)
  	  and: [aMethodProperties hasAtLeastTheSamePropertiesAs: self]!

Item was added:
+ ----- Method: MethodProperties>>propertiesIsNil (in category 'testing') -----
+ propertiesIsNil
+ 	^ properties isNil!

Item was added:
+ ----- Method: MethodProperties>>keysAndValuesDo: (in category 'accessing') -----
+ keysAndValuesDo: aBlock
+ 	properties keysAndValuesDo: aBlock!

Item was added:
+ ----- Method: Pragma>>analogousCodeTo: (in category 'testing') -----
+ analogousCodeTo: aPragma
+ 	^ (self arguments = aPragma arguments) &
+ 		(self keyword = aPragma keyword)!