--- a/MethodChange.st	Sun Dec 03 18:25:09 1995 +0100
+++ b/MethodChange.st	Sun Dec 03 19:12:46 1995 +0100
@@ -11,7 +11,7 @@
 "
 
 ClassChange subclass:#MethodChange
-	 instanceVariableNames:'selector'
+	 instanceVariableNames:'selector methodCategory'
 	 classVariableNames:''
 	 poolDictionaries:''
 	 category:'System-Changes'
@@ -41,21 +41,22 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.11 1995-11-23 01:54:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.12 1995-12-03 18:12:46 cg Exp $'
 ! !
 
 !MethodChange class methodsFor:'instance creation'!
 
-class:cls selector:sel source:src
-    ^ self basicNew class:cls selector:sel source:src
+class:cls selector:sel source:src category:cat
+    ^ self basicNew class:cls selector:sel source:src category:cat
 ! !
 
 !MethodChange methodsFor:'accessing'!
 
-class:cls selector:sel source:src
+class:cls selector:sel source:src category:cat
     className := cls name.
     selector := sel.
-    source := src
+    source := src.
+    methodCategory := cat
 ! !
 
 !MethodChange methodsFor:'printing'!
@@ -65,4 +66,3 @@
 		 space; 
 	    nextPutAll:selector 
 ! !
-