--- a/ChangeSet.st	Tue Sep 10 13:54:37 2002 +0200
+++ b/ChangeSet.st	Tue Sep 10 13:55:01 2002 +0200
@@ -856,12 +856,15 @@
     "Modified: / 14.11.2001 / 13:36:01 / cg"
 !
 
-addRemoveSelectorChange:aSelector in:aClass
+addRemoveSelectorChange:aSelector fromOld:oldMethod in:aClass
     "add a method-remove change to the receiver"
 
     |newChange|
 
     newChange := MethodRemoveChange class:aClass selector:aSelector.
+    oldMethod notNil ifTrue:[
+        newChange previousVersion:oldMethod source.
+    ].
     self rememberChangedClass:aClass.
     self addChange:newChange
 
@@ -1263,5 +1266,5 @@
 !ChangeSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.78 2002-07-25 12:10:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.79 2002-09-10 11:54:04 cg Exp $'
 ! !