--- 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 $'
 ! !

--- a/MethodRemoveChange.st	Tue Sep 10 13:54:37 2002 +0200
+++ b/MethodRemoveChange.st	Tue Sep 10 13:55:01 2002 +0200
@@ -14,7 +14,7 @@
 "{ Package: 'stx:libbasic3' }"
 
 ClassChange subclass:#MethodRemoveChange
-	instanceVariableNames:'selector'
+	instanceVariableNames:'selector previousVersion'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'System-Changes'
@@ -35,6 +35,16 @@
  hereby transferred.
 "
 
+!
+
+documentation
+"
+    instances represent a method-has-been-removed change. 
+    They are typically held in a ChangeSet.
+
+    [author:]
+        Claus Gittinger
+"
 ! !
 
 !MethodRemoveChange class methodsFor:'instance creation'!
@@ -63,6 +73,14 @@
     "Created: / 16.2.1998 / 12:51:57 / cg"
 !
 
+previousVersion
+    ^ previousVersion
+!
+
+previousVersion:something
+    previousVersion := something.
+!
+
 selector:sel
     selector := sel
 !
@@ -82,8 +100,14 @@
     "Created: / 16.2.1998 / 12:50:42 / cg"
 ! !
 
+!MethodRemoveChange methodsFor:'queries'!
+
+isMethodRemoveChange
+    ^ true
+! !
+
 !MethodRemoveChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodRemoveChange.st,v 1.5 2002-06-19 12:10:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodRemoveChange.st,v 1.6 2002-09-10 11:55:01 cg Exp $'
 ! !