Begin forwarded message:
> 
> From: commits at source.squeak.org
> To: squeak-dev at lists.squeakfoundation.org, packages at lists.squeakfoundation.org
> Reply-To: squeak-dev at lists.squeakfoundation.org
> Subject: The Trunk: Tests-nice.357.mcz
> Message-Id: <E1byiXK-0007G9-I2 at andreas>
> 
> Nicolas Cellier uploaded a new version of Tests to project The Trunk:
> http://source.squeak.org/trunk/Tests-nice.357.mcz
> 
> ==================== Summary ====================
> 
> Name: Tests-nice.357
> Author: nice
> Time: 24 October 2016, 6:55:45.875833 pm
> UUID: e92aa9b0-5e9c-7742-8bfd-8daaf6662145
> Ancestors: Tests-mt.356
> 
> We must explicitely import #Object from Smalltalk globals when we want to compile method accessing Object into another environment.
> 
> =============== Diff against Tests-mt.356 ===============
> 
> Item was changed:
>  ----- Method: EnvironmentTest>>testStoreDomesticValue (in category 'compiling tests') -----
>  testStoreDomesticValue
>  	"Create a class that implements #doStore.
>  	(see the comment in #storeValueMethod.)
>  	Send the message, then examine the results.
>  	The two values should be identical."
> 
>  	| griffle values |
>  	env importSelf.
> + 	env from: Smalltalk globals import: #Object.
>  	self createClass: #Griffle.
>  	env bind: #Plonk to: value.
>  		
>  	griffle := env at: #Griffle.
>  	griffle compile: self storeValueMethod.
>  	values := griffle new doStore.
>  	
>  	self assert: values isArray.
>  	self assert: values size = 2.
>  	self assert: values first == values last.
>  	self assert: (env valueOf: #Plonk) == values first!
> 
> Item was changed:
>  ----- Method: EnvironmentTest>>testStoreImportedValue (in category 'compiling tests') -----
>  testStoreImportedValue
>  	"Create a class that implements #doStore.
>  	Import #Plonk from another environment.
>  	(see the comment in #storeValueMethod.)
>  	Send the message, then examine the results.
>  	The two values should be identical."
> 
>  	| griffle foreign values |
>  	self createClass: #Griffle.
>  	foreign := Environment withName: #Foreign.
>  	foreign exportSelf.
>  	foreign at: #Plonk put: 'v1'.
>  	env from: foreign import: #Plonk.
> + 	env from: Smalltalk globals import: #Object.
>  	
>  	griffle := env at: #Griffle.
>  	griffle compile: self storeValueMethod.
>  	values := griffle new doStore.
>  	
>  	self assert: values isArray.
>  	self assert: values size = 2.
>  	self assert: values first == values last.
>  	self assert: (foreign at: #Plonk) == values first!
>