--- a/Metaclass.st	Fri Mar 05 13:00:04 1999 +0100
+++ b/Metaclass.st	Fri Mar 05 14:52:06 1999 +0100
@@ -1832,8 +1832,9 @@
     blk := [:aClass |
         aClass ~~ someClass ifTrue:[
             aClass isLoaded ifTrue:[
-"/                Transcript showCR:'recompiling methods in ''' , aClass name , ''' accessing ''' , aGlobalKey , ''''.
-"/                Transcript endEntry.
+                Transcript showCR:'recompiling methods in ''' , aClass name , ''' accessing ''' , aGlobalKey , ''''.
+                Transcript endEntry.
+
                 aClass recompileMethodsAccessingGlobal:aGlobalKey.
                 aClass class recompileMethodsAccessingGlobal:aGlobalKey.
                 "/ actually - must eventually recompile USERS of this namespace too
@@ -1987,6 +1988,6 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.135 1999-02-24 10:07:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.136 1999-03-05 13:52:06 cg Exp $'
 ! !
 Metaclass initialize!