Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.347.mcz
==================== Summary ====================
Name: System-cmm.347 Author: cmm Time: 2 July 2010, 6:54:56.35 pm UUID: a1b99108-d467-4028-9710-57386f49d0a5 Ancestors: System-ul.346
Fixed ability to revert a method.
=============== Diff against System-ul.346 ===============
Item was changed: ----- Method: ChangeRecord>>fileIn (in category 'initialization') ----- fileIn "File the receiver in. If I represent a method or a class-comment, file the method in and make a note of it in the recent-submissions list; if I represent a do-it, then, well, do it; if I represent a reorganization then get organized!!"
Cursor read showWhile: [| s cls aSelector | type == #doIt ifTrue: [((s := self string) beginsWith: '----') ifFalse: [Compiler evaluate: s]] ifFalse: + [cls := self methodClass. - [cls := Smalltalk at: class asSymbol. - cls := meta ifTrue: [cls class] ifFalse: [cls]. type == #method ifTrue: [cls compile: self text classified: category withStamp: stamp notifying: nil. (aSelector := self methodSelector) ifNotNil: [Utilities noteMethodSubmission: aSelector forClass: cls]]. type == #classComment ifTrue: [cls comment: self text stamp: stamp. Utilities noteMethodSubmission: #Comment forClass: cls ]. type == #reorganize ifTrue: [cls organization changeFromString: self text]]]!
squeak-dev@lists.squeakfoundation.org