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

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

Name: Kernel-eem.471
Author: eem
Time: 7 July 2010, 10:27:12.923 am
UUID: 1ec2e53a-ad4f-42d4-90b2-4a413714f24d
Ancestors: Kernel-eem.470

Restore the BlockClosure>>value[:....] primitive numbers snafu from
the asContext fixes.

=============== Diff against Kernel-eem.470 ===============

Item was changed:
  ----- Method: BlockClosure>>value:value: (in category 'evaluating') -----
  value: firstArg value: secondArg
  	"Activate the receiver, creating a closure activation (MethodContext)
  	 whose closure is the receiver and whose caller is the sender of this
  	 message. Supply the arguments and copied values to the activation
  	 as its arguments and copied temps. Primitive. Essential."
+ 	<primitive: 203>
- 	<primitive: 205>
  	| newContext |
  	numArgs ~= 2 ifTrue:
  		[self numArgsError: 2].
  	false
  		ifTrue: "Old code to simulate the closure value primitive on VMs that lack it."
  			[newContext := self asContextWithSender: thisContext sender.
  			newContext at: 1 put: firstArg.
  			newContext at: 2 put: secondArg.
  			thisContext privSender: newContext]
  		ifFalse: [self primitiveFailed]!

Item was changed:
  ----- Method: BlockClosure>>value:value:value: (in category 'evaluating') -----
  value: firstArg value: secondArg value: thirdArg
  	"Activate the receiver, creating a closure activation (MethodContext)
  	 whose closure is the receiver and whose caller is the sender of this
  	 message. Supply the arguments and copied values to the activation
  	 as its arguments and copied temps. Primitive. Essential."
+ 	<primitive: 204>
- 	<primitive: 205>
  	| newContext |
  	numArgs ~= 3 ifTrue:
  		[self numArgsError: 3].
  	false
  		ifTrue: "Old code to simulate the closure value primitive on VMs that lack it."
  			[newContext := self asContextWithSender: thisContext sender.
  			newContext at: 1 put: firstArg.
  			newContext at: 2 put: secondArg.
  			newContext at: 3 put: thirdArg.
  			thisContext privSender: newContext]
  		ifFalse: [self primitiveFailed]!

Item was changed:
  ----- Method: BlockClosure>>value (in category 'evaluating') -----
  value
  	"Activate the receiver, creating a closure activation (MethodContext)
  	 whose closure is the receiver and whose caller is the sender of this
  	 message. Supply the copied values to the activation as its copied
  	 temps. Primitive. Essential."
+ 	<primitive: 201>
- 	<primitive: 205>
  	| newContext |
  	numArgs ~= 1 ifTrue:
  		[self numArgsError: 1].
  	false
  		ifTrue: "Old code to simulate the closure value primitive on VMs that lack it."
  			[newContext := self asContextWithSender: thisContext sender.
  			thisContext privSender: newContext]
  		ifFalse: [self primitiveFailed]!

Item was changed:
  ----- Method: BlockClosure>>value: (in category 'evaluating') -----
  value: firstArg
  	"Activate the receiver, creating a closure activation (MethodContext)
  	 whose closure is the receiver and whose caller is the sender of this
  	 message. Supply the argument and copied values to the activation
  	 as its argument and copied temps. Primitive. Essential."
+ 	<primitive: 202>
- 	<primitive: 205>
  	| newContext |
  	numArgs ~= 1 ifTrue:
  		[self numArgsError: 1].
  	false
  		ifTrue: "Old code to simulate the closure value primitive on VMs that lack it."
  			[newContext := self asContextWithSender: thisContext sender.
  			newContext at: 1 put: firstArg.
  			thisContext privSender: newContext]
  		ifFalse: [self primitiveFailed]!