--- a/MethodCategoryChange.st	Fri Nov 24 12:40:57 2006 +0100
+++ b/MethodCategoryChange.st	Fri Nov 24 12:41:08 2006 +0100
@@ -92,13 +92,12 @@
 apply
     "apply the change"
 
-    |cls mthd|
+    |mthd|
 
-    cls := self changeClass.
     mthd := self changeMethod.
+    mthd category:methodCategory asSymbol.
 
-    mthd category:methodCategory asSymbol.
-    cls addChangeRecordForMethodCategory:mthd category:methodCategory.
+    "Modified: / 23-11-2006 / 16:59:09 / cg"
 ! !
 
 !MethodCategoryChange methodsFor:'queries'!
@@ -110,5 +109,5 @@
 !MethodCategoryChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodCategoryChange.st,v 1.16 2006-11-13 12:03:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodCategoryChange.st,v 1.17 2006-11-24 11:41:08 cg Exp $'
 ! !