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

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

Name: Kernel-eem.608
Author: eem
Time: 19 July 2011, 9:46:25.127 am
UUID: 0c48ee9d-2fdf-4ad9-9f55-5187010b71f7
Ancestors: Kernel-ul.607

Fix CompiledMethod>>hasLiteral: to not look for ==, but
literal equal (class == & value =)

=============== Diff against Kernel-ul.607 ===============

Item was changed:
  ----- Method: CompiledMethod>>hasLiteral: (in category 'literals') -----
  hasLiteral: literal
+ 	| litClass lit |
  	"Answer whether the receiver references the argument, literal."
+ 	litClass := literal class.
+ 	2 to: self numLiterals - 1 do: "exclude superclass + selector/properties"
+ 		[:index |
+ 		lit := self objectAt: index.
+ 		(litClass == lit class and: [literal = lit]) ifTrue: [^true]].
- 	2 to: self numLiterals - 1 "exclude superclass + selector/properties"
- 	  do:[:index |
- 		literal == (self objectAt: index) ifTrue: [^true]].
  	^false!