--- 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!