--- a/ByteCodeCompiler.st	Sun Aug 20 15:46:59 2000 +0200
+++ b/ByteCodeCompiler.st	Tue Aug 22 13:09:59 2000 +0200
@@ -3175,7 +3175,7 @@
 
     |stFileName stream handle address stcFlags cFlags def
      command oFileName cFileName
-     initName newMethod ok status className sep class stcPath ccPath 
+     initName oldMethod newMethod ok status className sep class stcPath ccPath 
      errorStream errorMessages eMsg m supers mP moduleFileName 
      dummyHandle f mapFileName libFileName pkg t s|
 
@@ -3544,6 +3544,8 @@
             ]
         ].
 
+        oldMethod := aClass compiledMethodAt:selector.
+
     "/    ('init at ' , address printString) infoPrintCR.
 
         m := ObjectFileLoader 
@@ -3581,7 +3583,8 @@
 "/            ].
 
     "/        aClass updateRevisionString.
-            aClass addChangeRecordForMethod:newMethod.
+            aClass addChangeRecordForMethod:newMethod fromOld:oldMethod.
+
             (silent or:[Smalltalk silentLoading == true]) ifFalse:[
                 Transcript showCR:('    compiled: ', className,' ',selector,' - machine code')
             ].
@@ -3700,6 +3703,6 @@
 !ByteCodeCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.171 2000-07-20 14:05:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.172 2000-08-22 11:09:59 cg Exp $'
 ! !
 ByteCodeCompiler initialize!