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

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

Name: Environments-cwp.24
Author: cwp
Time: 28 April 2013, 1:09:35.097 pm
UUID: e8a1166a-a372-4122-a495-75b489b33fcb
Ancestors: Environments-bf.23

Make #asBinding: preserve binding identity whenever possible.

=============== Diff against Environments-bf.23 ===============

Item was changed:
  ----- Method: Alias>>asBinding: (in category 'converting') -----
  asBinding: aSymbol
+ 	^ aSymbol = source key
+ 		ifTrue: [source]
+ 		ifFalse: [Alias key: aSymbol source: source]!
- 	^ Alias key: aSymbol source: source!

Item was changed:
  ----- Method: Association>>asBinding: (in category '*environments') -----
  asBinding: aSymbol
+ 	^ aSymbol == key
+ 		ifTrue: [self]
+ 		ifFalse: [Alias key: aSymbol source: self]!
- 	^ Alias key: aSymbol source: self!

Item was changed:
  ----- Method: ClassBinding>>asBinding: (in category 'as yet unclassified') -----
  asBinding: aSymbol
+ 	^ aSymbol == key
+ 		ifTrue: [self]
+ 		ifFalse: [self class key: aSymbol value: value]!
- 	^ self class key: aSymbol value: value!

Item was changed:
  ----- Method: Global>>asBinding: (in category 'as yet unclassified') -----
  asBinding: aSymbol
+ 	^ aSymbol == key
+ 		ifTrue: [self]
+ 		ifFalse: [Alias key: aSymbol source: self]!
- 	^ Alias key: aSymbol source: self!