A new version of Tools was added to project The Inbox:
http://source.squeak.org/inbox/Tools-jr.809.mcz

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

Name: Tools-jr.809
Author: jr
Time: 29 April 2018, 7:26:21.629471 pm
UUID: 95b32bbc-8dd4-bf49-8226-b727ef91e4de
Ancestors: Tools-cmm.808

Fix small glitch in MessageSet initialization

=============== Diff against Tools-cmm.808 ===============

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."
  	messageList := OrderedCollection new.
  	anArray do: [:each |
  		 each isMethodReference
  			ifTrue: [messageList addLast: each]
  			ifFalse: [MessageSet parse: each toClassAndSelector: [ :class :sel |
  				class ifNotNil: [
  					messageList addLast: (
+ 						MethodReference
- 						MethodReference new
  							class: class  
  							selector: sel)] ]]].
  	"Unify labels if wanted."
  	self class useUnifiedMessageLabels ifTrue: [
  		messageList do: [:each | | cls |
  			cls := each actualClass.
  			each stringVersion:
  				(cls
  					ifNil: [each asString] 
  					ifNotNil: 
  						[cls isUniClass
  							ifTrue: [cls typicalInstanceName, ' ', each selector]
  							ifFalse: [cls name , ' ' , each selector , ' {' , 
  													((cls organization categoryOfElement: each selector) ifNil: ['']) , '}' ,
  													' {', cls category, '}']])]].
  	messageListIndex := messageList isEmpty ifTrue: [0] ifFalse: [1].
  	contents := ''!