--- a/ByteCodeCompiler.st	Thu Nov 16 17:21:02 2000 +0100
+++ b/ByteCodeCompiler.st	Fri Nov 17 17:44:16 2000 +0100
@@ -3596,6 +3596,11 @@
     "/        aClass updateRevisionString.
             aClass addChangeRecordForMethod:newMethod fromOld:oldMethod.
 
+            "/ kludge-sigh: must send change messages manually here (stc-loaded code does not do it)
+            "/ see addMethod:... in ClassDescription
+            aClass changed:#methodDictionary with:(Array with:selector with:oldMethod).
+            Smalltalk changed:#methodInClass with:(Array with:aClass with:selector with:oldMethod).
+
             (silent or:[Smalltalk silentLoading == true]) ifFalse:[
                 Transcript showCR:('    compiled: ', className,' ',selector,' - machine code')
             ].
@@ -3714,6 +3719,6 @@
 !ByteCodeCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.175 2000-11-06 20:50:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.176 2000-11-17 16:44:16 cg Exp $'
 ! !
 ByteCodeCompiler initialize!