--- a/Metaclass.st	Mon Aug 24 18:32:06 1998 +0200
+++ b/Metaclass.st	Tue Aug 25 09:27:51 1998 +0200
@@ -1313,7 +1313,7 @@
                 changeSet1 do:[:nm | addedNames add:nm].
 
 " "
-                Transcript showCR:'recompiling instance methods accessing ' , addedNames printString ,  '...'.
+                Transcript showCR:'recompiling instance methods accessing ' , addedNames printString ,  '... [added instvars]'.
                 Transcript endEntry.
 " "
                 newClass recompileMethodsAccessingAny:addedNames.
@@ -1327,7 +1327,7 @@
                 "merge in the class variables"
                 changeSet1 do:[:nm | changeSet2 add:nm].
 " "
-                Transcript showCR:'recompiling instance methods accessing ' , changeSet2 printString , ' ...'.
+                Transcript showCR:'recompiling instance methods accessing ' , changeSet2 printString , ' ... [changed instvars]'.
                 Transcript endEntry.
 " "
                 self copyInvalidatedMethodsFrom:oldClass for:newClass accessingAny:changeSet2.
@@ -1739,6 +1739,7 @@
 
         mustInvalidate ifTrue:[
             newMethod := oldMethod copy.
+            Transcript showCR:'invalidating ' , selector , '...'.
             newMethod makeInvalid.
         ] ifFalse:[
             newMethod := oldMethod.
@@ -1967,6 +1968,6 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.131 1998-07-31 17:37:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.132 1998-08-25 07:27:51 tm Exp $'
 ! !
 Metaclass initialize!