--- a/ClassCategoryReader.st	Thu Aug 16 19:17:59 2001 +0200
+++ b/ClassCategoryReader.st	Fri Aug 17 14:37:43 2001 +0200
@@ -229,7 +229,8 @@
 
     |aString done method compiler canMakeSourceRef sourceFile pos nm src s silent|
 
-    silent := beSilent ifNil:[Smalltalk silentLoading].
+
+    (silent := beSilent isNil) ifTrue:[silent := Smalltalk silentLoading].
     silent == true ifFalse:[
         myClass isNil ifTrue:[
             nm := '** UndefinedClass **'
@@ -426,6 +427,6 @@
 !ClassCategoryReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.45 2000-12-13 19:09:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.46 2001-08-17 12:37:00 cg Exp $'
 ! !
 ClassCategoryReader initialize!