--- a/ClassCategoryReader.st	Sat Jul 30 18:37:37 2011 +0200
+++ b/ClassCategoryReader.st	Sun Jul 31 09:30:26 2011 +0200
@@ -166,6 +166,12 @@
     "Created: 9.2.1996 / 17:23:00 / cg"
 ! !
 
+!ClassCategoryReader class methodsFor:'others'!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.53 2011-07-31 07:30:26 cg Exp $'
+! !
+
 !ClassCategoryReader methodsFor:'fileIn'!
 
 fileInFrom:aStream
@@ -232,10 +238,10 @@
 
     |aString done method compiler canMakeSourceRef sourceFile pos nm src s silent|
 
-    silent := beSilent.
-    silent isNil ifTrue:[
-        silent := Smalltalk silentLoading
+    (silent := Object infoPrinting not) ifFalse:[
+        silent := beSilent ? Smalltalk silentLoading
     ].
+    
     silent ifFalse:[
         myClass isNil ifTrue:[
             nm := '** UndefinedClass **'
@@ -371,10 +377,10 @@
         ]
     ]
 
-    "Modified: / 9.9.1995 / 15:29:08 / claus"
-    "Modified: / 23.1.1998 / 15:25:01 / stefan"
-    "Created: / 17.5.1998 / 19:56:32 / cg"
-    "Modified: / 29.10.1998 / 21:34:59 / cg"
+    "Modified: / 09-09-1995 / 15:29:08 / claus"
+    "Modified: / 23-01-1998 / 15:25:01 / stefan"
+    "Created: / 17-05-1998 / 19:56:32 / cg"
+    "Modified: / 31-07-2011 / 09:30:07 / cg"
 !
 
 fileInFrom:aStream silent:beSilent
@@ -434,7 +440,7 @@
 !ClassCategoryReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.52 2009-06-12 10:00:35 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.53 2011-07-31 07:30:26 cg Exp $'
 ! !
 
 ClassCategoryReader initialize!