--- a/ByteCodeCompiler.st	Wed Nov 22 00:34:33 2000 +0100
+++ b/ByteCodeCompiler.st	Wed Nov 22 00:38:16 2000 +0100
@@ -674,7 +674,6 @@
                             "
                             (cat notNil and:[cat ~= oldMethod category]) ifTrue:[
                                 oldMethod category:cat.
-                                oldMethod changed:#category.    
 "/                                aClass updateRevisionString.
                                 aClass addChangeRecordForMethodCategory:oldMethod category:cat.
                                 silencio ifFalse:[
@@ -686,6 +685,8 @@
                             "
                             (pkg notNil and:[pkg ~~ oldMethod package]) ifTrue:[
                                 oldMethod package:pkg.
+                                oldMethod changed:#package.    
+                                Smalltalk changed:#classPackageOrganization with:(Array with:aClass with:oldMethod). 
                                 silencio ifFalse:[
                                     Transcript showCR:('    (package-id change only)')
                                 ].
@@ -832,14 +833,14 @@
             sourceStream close.
             newMethod sourceFilename:sourceFile position:pos.
         ].
-        newMethod category:cat.
+        newMethod setCategory:cat.
 pkg := aClass  package.
 "/        aClass owningClass isNil ifTrue:[
 "/            pkg := Class packageQuerySignal query.
 "/        ] ifFalse:[
 "/            pkg := aClass owningClass package
 "/        ].
-        newMethod package:pkg.
+        newMethod setPackage:pkg.
 "/        Project notNil ifTrue:[
 "/            newMethod package:(Project currentPackageName)
 "/        ].
@@ -908,13 +909,13 @@
     ] ifFalse:[
         newMethod source:aString string.
     ].
-    newMethod category:cat.
+    newMethod setCategory:cat.
     aClass owningClass isNil ifTrue:[
         pkg := Class packageQuerySignal query.
     ] ifFalse:[
         pkg := aClass owningClass package
     ].
-    newMethod package:pkg.
+    newMethod setPackage:pkg.
 
     (compiler contextMustBeReturnable) ifTrue:[
         newMethod contextMustBeReturnable:true
@@ -3697,7 +3698,7 @@
     newMethod numberOfVars:(self numberOfMethodVars).
     newMethod numberOfArgs:(self numberOfMethodArgs).
     newMethod source:aString string.
-    newMethod category:cat.
+    newMethod setCategory:cat.
     ^ newMethod
 
     "Modified: / 1.8.1997 / 00:27:32 / cg"
@@ -3719,6 +3720,6 @@
 !ByteCodeCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.176 2000-11-17 16:44:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.177 2000-11-21 23:38:16 cg Exp $'
 ! !
 ByteCodeCompiler initialize!