--- a/ClassCategoryReader.st	Thu Jul 18 17:33:09 1996 +0200
+++ b/ClassCategoryReader.st	Thu Jul 18 17:42:31 1996 +0200
@@ -17,7 +17,7 @@
 	category:'Kernel-Support'
 !
 
-!ClassCategoryReader class methodsFor:'documentation'!
+!ClassCategoryReader  class methodsFor:'documentation'!
 
 copyright
 "
@@ -70,7 +70,7 @@
 "
 ! !
 
-!ClassCategoryReader class methodsFor:'initialization'!
+!ClassCategoryReader  class methodsFor:'initialization'!
 
 initialize
     KeepSource := true.
@@ -83,7 +83,7 @@
     "Modified: 9.2.1996 / 17:22:57 / cg"
 ! !
 
-!ClassCategoryReader class methodsFor:'instance creation'!
+!ClassCategoryReader  class methodsFor:'instance creation'!
 
 class:aClass category:aCategory
     "return a new ClassCategoryReader to read methods for aClass with
@@ -98,7 +98,7 @@
     ^ self new class:aClass primitiveSpec:which
 ! !
 
-!ClassCategoryReader class methodsFor:'defaults'!
+!ClassCategoryReader  class methodsFor:'defaults'!
 
 keepSource
     ^ KeepSource
@@ -148,7 +148,7 @@
 
     |aString done method compiler canMakeSourceRef sourceFile pos nm src s|
 
-    Smalltalk silentLoading ifFalse:[
+    Smalltalk silentLoading == true ifFalse:[
         myClass isNil ifTrue:[
             nm := '** UndefinedClass **'
         ] ifFalse:[
@@ -285,7 +285,7 @@
     ]
 
     "Modified: 9.9.1995 / 15:29:08 / claus"
-    "Modified: 10.2.1996 / 13:24:04 / cg"
+    "Modified: 18.7.1996 / 17:42:09 / cg"
 ! !
 
 !ClassCategoryReader methodsFor:'private'!
@@ -322,9 +322,9 @@
     privacy := #protected
 ! !
 
-!ClassCategoryReader class methodsFor:'documentation'!
+!ClassCategoryReader  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.30 1996-04-25 16:57:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.31 1996-07-18 15:42:31 cg Exp $'
 ! !
 ClassCategoryReader initialize!