--- a/ClassCategoryReader.st	Tue Feb 20 09:14:27 2007 +0100
+++ b/ClassCategoryReader.st	Tue Feb 20 09:20:26 2007 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libbasic' }"
 
 Object subclass:#ClassCategoryReader
@@ -235,9 +234,11 @@
 
     |aString done method compiler canMakeSourceRef sourceFile pos nm src s silent|
 
-
-    (silent := beSilent) isNil ifTrue:[silent := Smalltalk silentLoading].
-    silent ~~ true ifTrue:[
+    silent := beSilent.
+    silent isNil ifTrue:[
+        silent := Smalltalk silentLoading
+    ].
+    silent ifFalse:[
         myClass isNil ifTrue:[
             nm := '** UndefinedClass **'
         ] ifFalse:[
@@ -318,16 +319,17 @@
                     "/ have to make ST/X's compiler protocol be compatible to ST-80's
                     "/ for other compilers to work ... (TGEN for example)
                     "/
-                    (compiler respondsTo:#compile:forClass:inCategory:notifying:install:skipIfSame:)
+                    (compiler respondsTo:#compile:forClass:inCategory:notifying:install:skipIfSame:silent:)
                     ifTrue:[
                         "/ ST/X's compiler
-                        method :=compiler
+                        method := compiler
                                      compile:aString
                                      forClass:myClass
                                      inCategory:myCategory
                                      notifying:requestor
                                      install:true
-                                     skipIfSame:SkipUnchangedMethods.
+                                     skipIfSame:SkipUnchangedMethods
+                                     silent:silent.
 
                         (method notNil and:[method ~~ #Error]) ifTrue:[
                             canMakeSourceRef ifTrue:[
@@ -434,7 +436,7 @@
 !ClassCategoryReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.50 2003-02-25 11:47:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.51 2007-02-20 08:20:26 stefan Exp $'
 ! !
 
 ClassCategoryReader initialize!