--- a/ByteCodeCompiler.st	Sat Dec 02 12:23:05 2000 +0100
+++ b/ByteCodeCompiler.st	Mon Dec 04 22:24:00 2000 +0100
@@ -3551,6 +3551,7 @@
         ].
 
         oldMethod := aClass compiledMethodAt:selector.
+        oldMethod notNil ifTrue:[pkg := oldMethod package].
 
     "/    ('init at ' , address printString) infoPrintCR.
 
@@ -3574,6 +3575,7 @@
                 aClass removeSelector:selector
             ] ifFalse:[
                 aClass addSelector:selector withMethod:oldMethod.
+                oldMethod setPackage:pkg.
             ]
         ].
 
@@ -3726,6 +3728,6 @@
 !ByteCodeCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.180 2000-12-02 11:23:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.181 2000-12-04 21:24:00 cg Exp $'
 ! !
 ByteCodeCompiler initialize!