--- a/MethodPackageChange.st	Tue Nov 21 17:44:42 2006 +0100
+++ b/MethodPackageChange.st	Fri Nov 24 12:40:57 2006 +0100
@@ -88,15 +88,12 @@
 apply
     "apply the change"
 
-    |cls mthd|
-
-    cls := self changeClass.
-    mthd := self changeMethod.
+    |mthd|
 
+    mthd := self changeMethod.
     mthd package:package.
-    cls addChangeRecordForMethodPackage:mthd package:package.
 
-    "Modified: / 09-10-2006 / 14:01:24 / cg"
+    "Modified: / 23-11-2006 / 17:01:37 / cg"
 ! !
 
 !MethodPackageChange methodsFor:'queries'!
@@ -110,5 +107,5 @@
 !MethodPackageChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodPackageChange.st,v 1.1 2006-10-09 12:08:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodPackageChange.st,v 1.2 2006-11-24 11:40:57 cg Exp $'
 ! !