--- a/ByteCodeCompiler.st	Wed Nov 22 00:38:16 2000 +0100
+++ b/ByteCodeCompiler.st	Wed Nov 22 12:02:23 2000 +0100
@@ -685,8 +685,6 @@
                             "
                             (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)')
                                 ].
@@ -740,8 +738,7 @@
 
             (newMethod == #CannotLoad) ifTrue:[
                 newMethod := compiler trappingStubMethodFor:aString inCategory:cat.
-                newMethod package:pkg.
-
+                newMethod setPackage:pkg.
                 keptOldCode := false.
                 install ifTrue:[
                     "/
@@ -3589,7 +3586,7 @@
             ] ifFalse:[
                 pkg := aClass owningClass package
             ].
-            newMethod package:pkg.
+            newMethod setPackage:pkg.
 "/            Project notNil ifTrue:[
 "/                newMethod package:(Project currentPackageName)
 "/            ].
@@ -3720,6 +3717,6 @@
 !ByteCodeCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.177 2000-11-21 23:38:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.178 2000-11-22 11:01:45 cg Exp $'
 ! !
 ByteCodeCompiler initialize!