--- a/ClassDescription.st	Wed Feb 16 13:29:58 2005 +0100
+++ b/ClassDescription.st	Wed Feb 16 13:30:54 2005 +0100
@@ -1722,12 +1722,20 @@
 
     "recompile all methods accessing the global variable aGlobalKey"
 
+"/    Transcript 
+"/            show:self name;
+"/            show:'recompiling for: ';
+"/            show:aGlobalKey;
+"/            showCR:'...'.
+
     self selectorsAndMethodsDo:[:aSelector :aMethod |
-	(aMethod literalsDetect:[:lit|
-	    lit = aGlobalKey
-	] ifNone:[]) notNil ifTrue:[
-	    self recompile:aSelector.
-	].
+        (aMethod literalsDetect:[:lit| lit = aGlobalKey] ifNone:[]) notNil ifTrue:[
+"/            Transcript 
+"/                    show:'  ->';
+"/                    showCR:aSelector.
+
+            self recompile:aSelector.
+        ].
     ].
 
     "Created: / 1.4.1997 / 23:44:53 / stefan"
@@ -3934,7 +3942,7 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.179 2005-01-26 16:54:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.180 2005-02-16 12:30:54 cg Exp $'
 ! !
 
 ClassDescription initialize!