Colin Putney uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-cwp.507.mcz

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

Name: System-cwp.507
Author: cwp
Time: 1 January 2013, 6:50:59.79 pm
UUID: cba427fe-eae7-47a5-9178-8a188aec1afe
Ancestors: System-fbs.506

Environments bootstrap - stage 1

=============== Diff against System-fbs.506 ===============

Item was added:
+ ----- Method: ImageSegment>>scanFrom:environment: (in category 'fileIn/Out') -----
+ scanFrom: aStream environment: anEnvironment
+ 	^ self scanFrom: aStream!

Item was added:
+ ----- Method: InternalTranslator>>scanFrom:environment: (in category 'fileIn/fileOut') -----
+ scanFrom: aStream environment: anEnvironment
+ 	"Read a definition of dictionary.  
+ 	Make sure current locale corresponds my locale id"
+ 	| aString newTranslations assoc currentPlatform |
+ 	newTranslations := Dictionary new.
+ 	currentPlatform := Locale currentPlatform.
+ 	[Locale
+ 		currentPlatform: (Locale localeID: id).
+ 	[aString := aStream nextChunk withSqueakLineEndings.
+ 	aString size > 0] whileTrue: 
+ 		[assoc := Compiler evaluate: aString environment: anEnvironment.
+ 		assoc value = ''
+ 			ifTrue: [self class registerPhrase: assoc key]
+ 			ifFalse: [newTranslations add: assoc]]]
+ 		ensure: [Locale currentPlatform: currentPlatform].
+ 	self mergeTranslations: newTranslations!

Item was added:
+ ----- Method: NaturalLanguageTranslator>>scanFrom:environment: (in category 'fileIn/fileOut') -----
+ scanFrom: aStream environment: anEnvironment
+ 	"Read a definition of dictionary.  
+ 	Make sure current locale corresponds my locale id"
+ 	| newTranslations currentPlatform |
+ 	newTranslations := Dictionary new.
+ 	currentPlatform := Locale currentPlatform.
+ 	[| aString assoc |
+ 	Locale currentPlatform: (Locale localeID: id).
+ 	[aString := aStream nextChunk withSqueakLineEndings.
+ 	aString size > 0] whileTrue: 
+ 		[assoc := Compiler evaluate: aString environment: anEnvironment.
+ 		assoc value = ''
+ 			ifTrue: [self class registerPhrase: assoc key]
+ 			ifFalse: [newTranslations add: assoc]]]
+ 		ensure: [Locale currentPlatform: currentPlatform].
+ 	self mergeTranslations: newTranslations!

Item was added:
+ ----- Method: ObjectScanner>>scanFrom:environment: (in category 'scanning') -----
+ scanFrom: aByteStream environment: anEnvironment
+ 	"This should probably be reimplemented using an environment
+ 	for compilation. For now, don't change anything"
+ 	^ self scanFrom: aByteStream!

Item was added:
+ ----- Method: PseudoClass>>literalScannedAs:environment:notifying: (in category 'printing') -----
+ literalScannedAs: scannedLiteral environment: anEnvironment notifying: requestor 
+ 	^ scannedLiteral!

Item was added:
+ ----- Method: SmartRefStream class>>scanFrom:environment: (in category 'i/o') -----
+ scanFrom: aByteStream environment: anEnvironment
+ 	^ self scanFrom: aByteStream!

Item was added:
+ ----- Method: SmartRefStream>>scanFrom:environment: (in category 'read write') -----
+ scanFrom: aByteStream environment: anEnvironment
+ 	^ self scanFrom: aByteStream!

Item was added:
+ ----- Method: SystemDictionary>>bindingOf:ifAbsent: (in category 'accessing') -----
+ bindingOf: varName ifAbsent: aBlock
+ 	"SystemDictionary includes Symbols only"
+ 	^super bindingOf: varName asSymbol ifAbsent: aBlock!

Item was added:
+ ----- Method: SystemDictionary>>undeclared (in category 'accessing') -----
+ undeclared
+ 	^ self at: #Undeclared!