David T. Lewis uploaded a new version of Monticello to project Squeak 4.5:
http://source.squeak.org/squeak45/Monticello-cwp.589.mcz

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

Name: Monticello-cwp.589
Author: cwp
Time: 22 March 2014, 7:59:40.107 pm
UUID: 46fa1e2f-2bf7-4950-82b1-1db31d5753f8
Ancestors: Monticello-cmm.588

Rename EnvironmentRequest to CurrentEnvironment.

=============== Diff against Monticello-cmm.586 ===============

Item was changed:
  ----- Method: MCClassDefinition>>createClass (in category 'installing') -----
  createClass
  	| superClass class composition |
  	superClass := superclassName == #nil ifFalse:
  					[Smalltalk at: superclassName].
  	[class := (ClassBuilder new)
  			name: name 
+ 			inEnvironment: (CurrentEnvironment signal ifNil: [superClass environment]) 
- 			inEnvironment: (EnvironmentRequest signal ifNil: [superClass environment]) 
  			subclassOf: superClass
  			type: type 
  			instanceVariableNames: self instanceVariablesString 
  			classVariableNames: self classVariablesString 
  			poolDictionaries: self sharedPoolsString
  			category: category.
  	] on: Warning, DuplicateVariableError do:[:ex| ex resume].
  
  	"The following is written to support traits unloading"
  	composition := self traitComposition ifNil: [Array new] ifNotNil: [:traitComposition | Compiler evaluate: traitComposition].
  	(composition isCollection and:[composition isEmpty and:[class traitComposition isEmpty]]) ifFalse:[
  		class setTraitComposition: composition asTraitComposition.
  	].
  
  	composition := self classTraitComposition ifNil: [Array new] ifNotNil: [:traitComposition | Compiler evaluate: traitComposition].
  	(composition isCollection and:[composition isEmpty and:[class class traitComposition isEmpty]]) ifFalse:[
  		class class setTraitComposition: composition asTraitComposition.
  	].
  
  	^class!

Item was changed:
  ----- Method: MCHttpRepository>>password (in category 'accessing') -----
  password
  	self userAndPasswordFromSettingsDo: [:usr :pwd | ^pwd].
  
  	self user isEmpty ifTrue: [^password ifNil: ['']].
  
+ 	password isEmptyOrNil ifTrue: [
- 	[password isEmptyOrNil] whileTrue: [
  		| answer |
  		"Give the user a chance to change the login"
  		answer := UIManager default request: 'User name for ', String cr, location
  			initialAnswer: self user.
  		answer isEmpty
  			ifTrue: [^password]
  			ifFalse: [self user: answer].
  		
  		password := UIManager default requestPassword: 'Password for "', self user, '" at ', String cr, location.
  	].
  
  	^ password!

Item was changed:
  ----- Method: MCMczWriter>>serializeDefinitions: (in category 'serializing') -----
  serializeDefinitions: aCollection
+ 	aCollection ifEmpty: [ Warning signal: 'About to serialize an empty package.'].
  	^String streamContents: [:aStream |
  		| writer |
  		writer := self snapshotWriterClass on: aStream.
  		writer writeDefinitions: aCollection]!