Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.341.mcz
==================== Summary ====================
Name: System-cmm.341 Author: cmm Time: 21 June 2010, 1:31:45.651 pm UUID: 5368255e-7e92-425a-a591-c42ade744d69 Ancestors: System-ar.340
Fixed 'revert to previous version' of class-side methods menu.
=============== Diff against System-ar.340 ===============
Item was changed: ----- Method: ChangeRecord>>methodClass (in category 'access') ----- + methodClass + | methodClassName methodClass | + type == #method ifFalse: [ ^ nil ]. + methodClassName := class subStrings + ifEmpty: [ ^ nil ] + ifNotEmptyDo: + [ : parts | parts first asSymbol ]. + (Smalltalk globals includesKey: methodClassName) ifFalse: [ ^ nil ]. + methodClass := Smalltalk at: methodClassName. + ^ meta + ifTrue: [ methodClass class ] + ifFalse: [ methodClass ]! - methodClass - | methodClass | - type == #method ifFalse: [^ nil]. - (Smalltalk globals includesKey: class asSymbol) ifFalse: [^ nil]. - methodClass := Smalltalk at: class asSymbol. - meta ifTrue: [^ methodClass class] - ifFalse: [^ methodClass]!