Colin Putney uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/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.588 ===============
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!
packages@lists.squeakfoundation.org