'From Squeak3.6 of ''6 October 2003'' [latest update: #5424] on 13 December 2003 at 2:48:01 am'! !MessageSet methodsFor: 'private' stamp: 'ff 12/13/2003 02:38'! initializeMessageList: anArray | s | messageList _ OrderedCollection new. anArray do: [ :each | MessageSet parse: each toClassAndSelector: [ :class :sel | class ifNotNil: [ s _ class name , ' ' , sel , ' {' , ((class organization categoryOfElement: sel) ifNil: ['']) , '}'. messageList add: ( MethodReference new setClass: class methodSymbol: sel stringVersion: s ) ] ] ]. messageListIndex _ messageList isEmpty ifTrue: [0 ] ifFalse: [1]. contents _ ''! !