--- a/Metaclass.st	Fri Mar 05 17:56:03 1999 +0100
+++ b/Metaclass.st	Fri Mar 05 19:55:27 1999 +0100
@@ -260,8 +260,10 @@
 
         addedNames := newNames select:[:nm | (oldNames includes:nm) not].
 
-        Transcript showCR:'recompiling class methods of ' , newMetaclass name ,
-                          ' accessing any of ' , addedNames printString.
+	Smalltalk silentLoading ifFalse:[
+            Transcript showCR:'recompiling class methods of ' , newMetaclass name ,
+                              ' accessing any of ' , addedNames printString.
+	].
 
         "recompile class-methods"    
         newMetaclass recompileMethodsAccessingAny:addedNames.
@@ -300,8 +302,10 @@
             ]
         ].
 
-        Transcript showCR:'recompiling class methods of ' , newMetaclass name ,
-                          ' accessing any of ' , changeSet printString.
+	Smalltalk silentLoading ifFalse:[
+            Transcript showCR:'recompiling class methods of ' , newMetaclass name ,
+                              ' accessing any of ' , changeSet printString.
+	].
 
         "
          recompile class-methods accessing any c-instvar with a changed position
@@ -407,8 +411,10 @@
 
             newSubclass := oldToNew at:oldSubclass.
 
-            Transcript showCR:'recompiling class methods of ' , newSubclass class name ,
-                              ' accessing any of ' , changeSet printString.
+	    Smalltalk silentLoading ifFalse:[
+                Transcript showCR:'recompiling class methods of ' , newSubclass class name ,
+                                  ' accessing any of ' , changeSet printString.
+	    ].
 
             self 
                 copyInvalidatedMethodsFrom:oldSubclass class for:newSubclass class 
@@ -439,8 +445,10 @@
             classInstVars removeAll:commonClassInstVars.
             classInstVars addAll:changeSet.
 
-            Transcript showCR:'recompiling class methods of ' , newSubclass class name ,
-                              ' accessing any of ' , classInstVars printString.
+	    Smalltalk silentLoading ifFalse:[
+                Transcript showCR:'recompiling class methods of ' , newSubclass class name ,
+                                  ' accessing any of ' , classInstVars printString.
+	    ].
 
             self 
                 copyInvalidatedMethodsFrom:oldSubclass class for:newSubclass class 
@@ -1833,8 +1841,10 @@
     blk := [:aClass |
         aClass ~~ someClass ifTrue:[
             aClass isLoaded ifTrue:[
-                Transcript showCR:'recompiling methods in ''' , aClass name , ''' accessing ''' , aGlobalKey , ''''.
-                Transcript endEntry.
+		Smalltalk silentLoading ifFalse:[
+                    Transcript showCR:'recompiling methods in ''' , aClass name , ''' accessing ''' , aGlobalKey , ''''.
+                    Transcript endEntry.
+		].
 
                 aClass recompileMethodsAccessingGlobal:aGlobalKey.
                 aClass class recompileMethodsAccessingGlobal:aGlobalKey.
@@ -1989,6 +1999,6 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.137 1999-03-05 16:56:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.138 1999-03-05 18:55:27 cg Exp $'
 ! !
 Metaclass initialize!