--- a/MethodChange.st	Tue Mar 21 13:43:37 2000 +0100
+++ b/MethodChange.st	Tue Mar 21 13:45:23 2000 +0100
@@ -51,6 +51,12 @@
 
 !MethodChange methodsFor:'accessing'!
 
+category: aCategory
+    methodCategory := aCategory
+
+    "Created: / 7.2.1998 / 19:47:53 / cg"
+!
+
 changeMethod
     |cls|
 
@@ -104,6 +110,12 @@
     ^ selector
 
     "Created: / 6.2.1998 / 13:29:25 / cg"
+!
+
+selector:aSymbol
+    selector := aSymbol
+
+    "Created: / 6.2.1998 / 13:29:25 / cg"
 ! !
 
 !MethodChange methodsFor:'applying'!
@@ -186,5 +198,5 @@
 !MethodChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.24 2000-02-03 18:31:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.25 2000-03-21 12:45:23 cg Exp $'
 ! !