--- a/ClassCategoryReader.st	Wed Sep 08 15:16:26 1999 +0200
+++ b/ClassCategoryReader.st	Wed Sep 08 15:43:40 1999 +0200
@@ -227,7 +227,7 @@
 
     |aString done method compiler canMakeSourceRef sourceFile pos nm src s silent|
 
-    silent := beSilent ? (Smalltalk silentLoading).
+    silent := beSilent ifNil:[Smalltalk silentLoading].
     silent == true ifFalse:[
         myClass isNil ifTrue:[
             nm := '** UndefinedClass **'
@@ -420,6 +420,6 @@
 !ClassCategoryReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.42 1998-10-29 20:36:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.43 1999-09-08 13:43:40 stefan Exp $'
 ! !
 ClassCategoryReader initialize!