--- a/BCompiler.st	Thu Jan 02 19:08:39 1997 +0100
+++ b/BCompiler.st	Fri Jan 03 13:03:42 1997 +0100
@@ -203,7 +203,8 @@
      The argument, silent controls if errors are to be reported."
 
     |compiler newMethod tree symbolicCodeArray oldMethod lazy silencio 
-     sourceFile sourceStream newSource primNr pos sel keptOldCode msg answer|
+     sourceFile sourceStream newSource primNr pos sel keptOldCode msg answer
+     pkg|
 
     aString isNil ifTrue:[^ nil].
     silencio := silent or:[Smalltalk silentLoading == true].
@@ -252,8 +253,21 @@
                             (cat notNil and:[cat ~= oldMethod category]) ifTrue:[
                                 oldMethod category:cat.
                                 oldMethod changed:#category.    
-    "/                            aClass updateRevisionString.
+"/                                aClass updateRevisionString.
                                 aClass addChangeRecordForMethodCategory:oldMethod category:cat.
+                                silencio ifFalse:[
+                                    Transcript showCR:('    (category change only)')
+                                ].
+                            ].
+                            "
+                             and package may be too.
+                            "
+                            pkg := Class packageQuerySignal raise.
+                            (pkg notNil and:[pkg ~~ oldMethod package]) ifTrue:[
+                                oldMethod package:pkg.
+                                silencio ifFalse:[
+                                    Transcript showCR:('    (package-id change only)')
+                                ].
                             ].
                             ^ oldMethod
                         ]
@@ -450,7 +464,7 @@
 
     "Created: 29.10.1995 / 19:59:36 / cg"
     "Modified: 24.6.1996 / 12:41:13 / stefan"
-    "Modified: 5.11.1996 / 20:19:08 / cg"
+    "Modified: 3.1.1997 / 12:48:13 / cg"
 !
 
 compile:methodText forClass:classToCompileFor notifying:requestor
@@ -2485,6 +2499,6 @@
 !ByteCodeCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.107 1996-11-11 17:55:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/BCompiler.st,v 1.108 1997-01-03 12:03:42 cg Exp $'
 ! !
 ByteCodeCompiler initialize!