--- a/ClassCategoryReader.st	Fri Oct 27 16:52:09 1995 +0100
+++ b/ClassCategoryReader.st	Fri Oct 27 16:56:51 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.20 1995-10-27 15:52:09 cg Exp $
+$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.21 1995-10-27 15:56:51 cg Exp $
 '!
 
 !ClassCategoryReader class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.20 1995-10-27 15:52:09 cg Exp $
+$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.21 1995-10-27 15:56:51 cg Exp $
 "
 !
 
@@ -136,22 +136,24 @@
 
     |aString done method compiler makeSourceRef sourceFile pos nm|
 
-    Smalltalk silentLoading ifFalse:[
-	myClass isNil ifTrue:[
-	    nm := '** UndefinedClass **'
-	] ifFalse:[
-	    nm := myClass name
+    ignore ifFalse:[
+        Smalltalk silentLoading ifFalse:[
+	    myClass isNil ifTrue:[
+	        nm := '** UndefinedClass **'
+	    ] ifFalse:[
+	        nm := myClass name
+	    ].
+	    Transcript show:'  '; show:nm; show:' -> '; showCr:myCategory.
 	].
-	Transcript show:'  '; show:nm; show:' -> '; showCr:myCategory.
-    ].
 
-    makeSourceRef := false.
-    KeepSource == false ifTrue:[
-	aStream isFileStream ifTrue:[
-	    sourceFile := aStream pathName.
-	    sourceFile printNL.
-	    makeSourceRef := true.
-	]
+        makeSourceRef := false.
+        KeepSource == false ifTrue:[
+	    aStream isFileStream ifTrue:[
+	        sourceFile := aStream pathName.
+	        sourceFile printNL.
+	        makeSourceRef := true.
+	    ]
+        ].
     ].
 
     done := false.