Eliot Miranda uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-eem.736.mcz

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

Name: Tools-eem.736
Author: eem
Time: 16 December 2016, 11:28:21.691735 am
UUID: edf74efa-cdf2-4a15-8526-40f44f02273b
Ancestors: Tools-eem.735

Stop MessageSet>>initializeMessageList: from installng new MethodReferences when given a list of MethodReferences.  The substitution breaks schemes such as constructing MessageSets for variants of MethodReference that hold edited versions of code, e.g. for viewing potential edits from the rewrite engine.

=============== Diff against Tools-eem.735 ===============

Item was changed:
  ----- Method: MessageSet>>initializeMessageList: (in category 'private') -----
  initializeMessageList: anArray
+ 	"Initialize my messageList from the given list of MethodReference or string objects.  NB: special handling for uniclasses.
+ 	 Do /not/ replace the elements of anArray if they are already MethodReferences, so as to allow users to construct richer
+ 	 systems, such as differencers between existing and edited versions of code."
- 	"Initialize my messageList from the given list of MethodReference or string objects.  NB: special handling for uniclasses."
- 
  	
  	messageList := OrderedCollection new.
+ 	anArray do:
+ 		[:each |
+ 		 each isMethodReference
+ 			ifTrue: [messageList addLast: each]
+ 			ifFalse:
+ 				[MessageSet 
+ 					parse: each  
+ 					toClassAndSelector: [ :class :sel | | s |
+ 						class ifNotNil:
+ 							[class isUniClass
+ 								ifTrue:
+ 									[s := class typicalInstanceName, ' ', sel]
+ 								ifFalse:
+ 									[s := class name , ' ' , sel , ' {' , 
+ 										((class organization categoryOfElement: sel) ifNil: ['']) , '}' ,
+ 										' {', class category, '}'].
+ 							messageList addLast: (
+ 								MethodReference new
+ 									setClass: class  
+ 									methodSymbol: sel 
+ 									stringVersion: s)]]]].
- 	anArray do: [ :each |
- 		MessageSet 
- 			parse: each  
- 			toClassAndSelector: [ :class :sel | | s |
- 				class ifNotNil:
- 					[class isUniClass
- 						ifTrue:
- 							[s := class typicalInstanceName, ' ', sel]
- 						ifFalse:
- 							[s := class name , ' ' , sel , ' {' , 
- 								((class organization categoryOfElement: sel) ifNil: ['']) , '}' ,
- 								' {', class category, '}'].
- 					messageList add: (
- 						MethodReference new
- 							setClass: class  
- 							methodSymbol: sel 
- 							stringVersion: s)]]].
  	messageListIndex := messageList isEmpty ifTrue: [0] ifFalse: [1].
  	contents := ''!