--- a/MethodCategoryChange.st	Tue Dec 07 15:20:50 1999 +0100
+++ b/MethodCategoryChange.st	Tue Dec 07 16:36:18 1999 +0100
@@ -11,7 +11,7 @@
 "
 
 MethodChange subclass:#MethodCategoryChange
-	instanceVariableNames:'category'
+	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
 	category:'System-Changes'
@@ -56,25 +56,41 @@
 class:cls selector:sel category:cat
     className := cls name.
     selector := sel.
-    category := cat
+    methodCategory := cat
 
 !
 
 className:clsName selector:sel category:cat
     className := clsName.
     selector := sel.
-    category := cat
+    methodCategory := cat
 
     "Created: / 16.2.1998 / 14:14:16 / cg"
 !
 
 source
-    ^ '(' , className , ' compiledMethodAt:#' , selector , ') category:' , category storeString
+    ^ '(' , className , ' compiledMethodAt:#' , selector , ') category:' , methodCategory storeString
+
+! !
+
+!MethodCategoryChange methodsFor:'applying'!
+
+apply
+    "apply the change"
 
+    |cls mthd|
+
+    cls := self changeClass.
+    mthd := self changeMethod.
+
+    mthd category:methodCategory asSymbol.
+    cls changed:#organization with:self changeSelector.
+    mthd changed:#category.
+    cls addChangeRecordForMethodCategory:mthd category:methodCategory.
 ! !
 
 !MethodCategoryChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodCategoryChange.st,v 1.9 1998-02-16 14:00:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodCategoryChange.st,v 1.10 1999-12-07 15:35:30 cg Exp $'
 ! !