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

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

Name: System-cwp.670
Author: cwp
Time: 22 March 2014, 8:04:15.84 pm
UUID: 741ae407-86eb-4c68-851b-1f00137c6c54
Ancestors: System-cmm.669

Rename EnvironmentRequest to CurrentEnvironment, use the new "Environment current" mechanism where appropriate.

=============== Diff against System-cmm.669 ===============

Item was changed:
  ----- Method: ChangeRecord>>fileIn: (in category 'initialization') -----
  fileIn: anEnvironment
  	"File the receiver in.  If I represent a method or a class-comment, file the method in and make a note of it in the recent-submissions list; if I represent a do-it, then, well, do it; if I represent a reorganization then get organized!!"
  
  	Cursor read showWhile:
  		[| s cls aSelector |
  		type == #doIt
  			ifTrue:
  				[((s := self string) beginsWith: '----') ifFalse: [Compiler evaluate: s]]
  			ifFalse:
  				[cls := self methodClass: anEnvironment.
  				 type == #method ifTrue:
  					[[cls compile: self text classified: category withStamp: stamp notifying: nil]
+ 					on: CurrentEnvironment do: [:e | e resume: anEnvironment].
- 					on: EnvironmentRequest do: [:e | e resume: anEnvironment].
  					(aSelector := self methodSelector) ifNotNil:
  						[RecentMessages default recordSelector: aSelector forClass: cls inEnvironment: anEnvironment]].
  				 type == #classComment ifTrue:
  					[cls comment: self text stamp: stamp.
  					RecentMessages default recordSelector: #Comment forClass: cls inEnvironment: anEnvironment].
  				 type == #reorganize ifTrue:
  					[cls organization changeFromString: self text]]]!

Item was changed:
  ----- Method: InternalTranslator>>scanFrom: (in category 'fileIn/fileOut') -----
  scanFrom: aStream 
+ 	^ self scanFrom: aStream environment: Environment current!
- 	^ self scanFrom: aStream environment: Environment default!

Item was changed:
  ----- Method: NaturalLanguageTranslator>>scanFrom: (in category 'fileIn/fileOut') -----
  scanFrom: aStream 
+ 	^ self scanFrom: aStream environment: Environment current!
- 	^ self scanFrom: aStream environment: Environment default!