Levente Uzonyi uploaded a new version of Compiler to project The Trunk:
http://source.squeak.org/trunk/Compiler-ul.179.mcz

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

Name: Compiler-ul.179
Author: ul
Time: 16 November 2010, 4:43:43.297 am
UUID: 107e924e-8060-0d48-a735-4e21340dffd8
Ancestors: Compiler-ul.178

- use #= for integer comparison instead of #== (http://bugs.squeak.org/view.php?id=2788 )

=============== Diff against Compiler-ul.178 ===============

Item was changed:
  ----- Method: MessageNode>>printToDoOn:indent: (in category 'printing') -----
  printToDoOn: aStream indent: level
  
  	| limitNode |
  	self printReceiver: receiver on: aStream indent: level.
  
  	(arguments last == nil or: [(arguments last isMemberOf: AssignmentNode) not])
  		ifTrue: [limitNode := arguments first]
  		ifFalse: [limitNode := arguments last value].
  	(selector key = #to:by:do:
  	 and: [(arguments at: 2) isConstantNumber
+ 	 and: [(arguments at: 2) key = 1]])
- 	 and: [(arguments at: 2) key == 1]])
  		ifTrue: [self printKeywords: #to:do:
  					arguments: (Array with: limitNode with: (arguments at: 3))
  					on: aStream indent: level]
  		ifFalse: [self printKeywords: selector key
  					arguments: (Array with: limitNode) , arguments allButFirst
  					on: aStream indent: level]!

Item was changed:
  ----- Method: MessageNode>>printWithClosureAnalysisToDoOn:indent: (in category 'printing') -----
  printWithClosureAnalysisToDoOn: aStream indent: level
  
  	| limitNode |
  	self printWithClosureAnalysisReceiver: receiver on: aStream indent: level.
  
  	limitNode := (arguments last == nil
  				or: [arguments last isAssignmentNode not])
  					ifTrue: [arguments first]
  					ifFalse: [arguments last value].
  	(selector key = #to:by:do:
  	 and: [(arguments at: 2) isConstantNumber
+ 	 and: [(arguments at: 2) key = 1]])
- 	 and: [(arguments at: 2) key == 1]])
  		ifTrue: [self printWithClosureAnalysisKeywords: #to:do:
  					arguments: (Array with: limitNode with: (arguments at: 3))
  					on: aStream indent: level]
  		ifFalse: [self printWithClosureAnalysisKeywords: selector key
  					arguments: (Array with: limitNode) , arguments allButFirst
  					on: aStream indent: level]!