--- a/ClassCategoryReader.st	Mon Jul 18 16:22:09 2011 +0100
+++ b/ClassCategoryReader.st	Wed Aug 10 15:59:08 2011 +0100
@@ -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,11 +440,12 @@
 !ClassCategoryReader class methodsFor:'documentation'!
 
 version
-    ^ '$Id: ClassCategoryReader.st 10660 2011-07-18 15:22:09Z vranyj1 $'
+    ^ '$Id: ClassCategoryReader.st 10665 2011-08-10 14:59:08Z vranyj1 $'
 !
 
 version_SVN
-    ^ '$Id: ClassCategoryReader.st 10660 2011-07-18 15:22:09Z vranyj1 $'
+    ^ '$Id: ClassCategoryReader.st 10665 2011-08-10 14:59:08Z vranyj1 $'
 ! !
 
 ClassCategoryReader initialize!
+