--- a/Metaclass.st	Wed Apr 14 21:16:15 1999 +0200
+++ b/Metaclass.st	Thu Apr 15 10:13:56 1999 +0200
@@ -1778,7 +1778,9 @@
 
         mustInvalidate ifTrue:[
             newMethod := oldMethod copy.
-            Transcript showCR:'invalidating ' , selector , '...'.
+"/            Smalltalk silentLoading ifFalse:[
+"/                Transcript showCR:'invalidating ' , selector , '...'.
+"/	      ].
             newMethod makeInvalid.
         ] ifFalse:[
             newMethod := oldMethod.
@@ -2021,6 +2023,6 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.142 1999-04-14 19:16:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.143 1999-04-15 08:13:56 cg Exp $'
 ! !
 Metaclass initialize!