--- a/Metaclass.st	Tue Apr 13 19:26:12 1999 +0200
+++ b/Metaclass.st	Wed Apr 14 21:16:15 1999 +0200
@@ -838,7 +838,9 @@
         ].
             
         newCIVNames size > 0 ifTrue:[
-            Transcript show:'preserving classInstVar values: '; showCR:newCIVNames.
+"/            Smalltalk silentLoading ifFalse:[
+"/                Transcript show:'preserving classInstVar values: '; showCR:newCIVNames.
+"/            ].
             newCIVNames do:[:n |
                 (oldCIVNames includes:n) ifTrue:[
                     newClass instVarNamed:n put:(oldClass instVarNamed:n)
@@ -867,7 +869,9 @@
                               raiseRequestWith:(oldClass -> newClass)
                               errorString:('redefinition of class: ' , oldClass name).
                 answer == #keep ifTrue:[
-                    Transcript showCR:('keeping original package: ''' , oldPkg , ''' of class: ' , oldClass name).
+"/                    Smalltalk silentLoading ifFalse:[
+"/                      Transcript showCR:('keeping original package: ''' , oldPkg , ''' of class: ' , oldClass name).
+"/                    ].
                     pkg := oldPkg.
                 ] ifFalse:[
                     answer ~~ #continue ifTrue:[
@@ -1322,10 +1326,9 @@
                 "/ only new inst variable(s) has/have been added - 
                 "/ old methods still work (the existing inst-indices are still valid)
 
-" "
-                Transcript showCR:'copying methods ...'.
-                Transcript endEntry.
-" "
+"/                Transcript showCR:'copying methods ...'.
+"/                Transcript endEntry.
+
                 self copyMethodsFrom:oldClass for:newClass.
 
                 "/ but: we have to recompile all methods accessing new instars
@@ -1372,10 +1375,10 @@
     Class classRedefinitionSignal answer:#keep do:[
         Class withoutUpdatingChangesDo:[
             oldClass subclasses copy do:[:aClass |
-" "
-                Transcript showCR:'changing superclass of:' , aClass name.
-                Transcript endEntry.
-" "
+
+"/                Transcript showCR:'changing superclass of:' , aClass name.
+"/                Transcript endEntry.
+
                 aClass superclass:newClass
             ]
         ]
@@ -2018,6 +2021,6 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.141 1999-03-19 07:21:21 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.142 1999-04-14 19:16:15 cg Exp $'
 ! !
 Metaclass initialize!