--- a/MethodChange.st	Mon Aug 21 20:04:34 2000 +0200
+++ b/MethodChange.st	Tue Aug 22 13:10:19 2000 +0200
@@ -10,8 +10,10 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libbasic3' }"
+
 ClassChange subclass:#MethodChange
-	instanceVariableNames:'selector methodCategory privacy'
+	instanceVariableNames:'selector methodCategory privacy previousVersion'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'System-Changes'
@@ -106,6 +108,16 @@
     "Created: / 7.2.1998 / 19:47:53 / cg"
 !
 
+previousVersion
+    "return the value of the instance variable 'previousVersion' (automatically generated)"
+
+    ^ previousVersion!
+
+previousVersion:something
+    "set the value of the instance variable 'previousVersion' (automatically generated)"
+
+    previousVersion := something.!
+
 selector
     ^ selector
 
@@ -198,5 +210,5 @@
 !MethodChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.25 2000-03-21 12:45:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.26 2000-08-22 11:10:19 cg Exp $'
 ! !