Issue� 5743 can be closed after integrating the attached changeset.

- Francisco

AbstractTool >> browseVersionsFrom: aMethod
�� | selector class |
�� (selector := aMethod selector)
�� ifNil: [ self inform: 'Sorry, only actual methods have retrievable versions.'. ^nil ]
�� ifNotNil: [
�� class := aMethod methodClass.
�� (Smalltalk tools versionBrowser
�� browseVersionsOf: aMethod
�� class: (class isMeta ifTrue: [class soleInstance ] ifFalse: [class])
�� meta: class isMeta
�� category: aMethod category
�� selector: selector)]

On 29 April 2012 18:11, Francisco Garau <francisco.garau@gmail.com> wrote:

Nautilus is creating ChangeRecords that cannot be loaded. I've opened an issue for it.
Change Record created with Nautilus
file: 	MultiByteFileStream: '..\Pharo2.0.1.changes'
position: 	299095
type: 	#method
class: 	'BalloonMorph class'
category: 	#private
meta: 	true
stamp: 	'BenjaminVanRyseghem 1/20/2011 12:41
ChangeRecord >> methodClass
�� | methodClass |
�� type == #method
�� ifFalse: [ ^ nil ].
�� (Smalltalk globals includesKey: class asSymbol)
�� ifFalse: [ ^ nil ].
�� methodClass := Smalltalk globals at: class asSymbol.
�� ^ meta
�� ifTrue: [ methodClass class ]
�� ifFalse: [ methodClass ]