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

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

Name: Kernel-ul.254
Author: ul
Time: 30 September 2009, 3:04:30 am
UUID: e908dda7-2b3b-3d4b-b301-08b2a4d289bf
Ancestors: Kernel-ar.253

- replaced #whileFalse: with #whileFalse in MethodDictionary  >> #scanFor:

=============== Diff against Kernel-ar.253 ===============

Item was changed:
  ----- Method: MethodDictionary>>scanFor: (in category 'private') -----
  scanFor: anObject
  	"Scan the key array for the first slot containing either a nil (indicating an empty slot) or an element that matches anObject. Answer the index of that slot or raise an error if no slot is found. This method will be overridden in various subclasses that have different interpretations for matching elements."
  
  	| index start |
  	index := start := anObject identityHash \\ array size + 1.
  	[ 
  		| element |
  		((element := self basicAt: index) == nil or: [ element == anObject ])
  			ifTrue: [ ^index ].
+ 		(index := index \\ array size + 1) = start ] whileFalse.
- 		(index := index \\ array size + 1) = start ] whileFalse: [ ].
  	self errorNoFreeSpace!