--- a/Method.st	Fri Nov 24 12:40:28 2006 +0100
+++ b/Method.st	Fri Nov 24 19:12:18 2006 +0100
@@ -316,10 +316,11 @@
             self changed:#category with:oldCategory.            "/ will vanish
             cls changed:#organization with:self selector.       "/ will vanish
             Smalltalk changed:#methodCategory with:(Array with:cls with:self with:oldCategory). 
+            cls addChangeRecordForMethodCategory:self category:newCategory.
         ]
     ]
 
-    "Modified: / 13.11.1998 / 23:55:05 / cg"
+    "Modified: / 23-11-2006 / 16:58:06 / cg"
 !
 
 comment
@@ -459,7 +460,10 @@
         cls changed:#methodPackage with:self selector.                      "/ will vanish
 
         Smalltalk changed:#projectOrganization with:(Array with:cls with:self with:oldPackage). 
+        cls addChangeRecordForMethodPackage:self package:newPackage.
     ]
+
+    "Modified: / 23-11-2006 / 17:01:02 / cg"
 !
 
 setCategory:aStringOrSymbol
@@ -778,9 +782,12 @@
             mySelector notNil ifTrue:[
                 myClass changed:#methodPrivacy with:mySelector.      "/ will vanish
                 Smalltalk changed:#privacyOfMethod with:(Array with:myClass with:self with:oldPrivacy). 
+                myClass addChangeRecordForMethodPrivacy:self.
             ]
         ]
     ]
+
+    "Modified: / 23-11-2006 / 17:03:20 / cg"
 !
 
 restricted:aBoolean
@@ -2736,7 +2743,7 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.301 2006-11-07 13:00:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.302 2006-11-24 18:12:18 cg Exp $'
 ! !
 
 Method initialize!