--- a/CCReader.st	Thu Apr 20 20:04:43 1995 +0200
+++ b/CCReader.st	Mon May 01 23:30:32 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Attic/CCReader.st,v 1.13 1995-02-15 10:21:24 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/CCReader.st,v 1.14 1995-05-01 21:28:25 claus Exp $
 '!
 
 !ClassCategoryReader class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Attic/CCReader.st,v 1.13 1995-02-15 10:21:24 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/CCReader.st,v 1.14 1995-05-01 21:28:25 claus Exp $
 "
 !
 
@@ -109,13 +109,17 @@
 
 !ClassCategoryReader methodsFor:'fileIn'!
 
-fileInFrom:aStream notifying:requestor
+fileInFrom:aStream notifying:requestor passChunk:passChunk
     "read method-chunks from the input stream, aStream; compile them
      and add the methods to the class defined by the class-instance var;
      errors and notifications are passed to requestor"
 
     |aString done method|
 
+    Smalltalk silentLoading ifFalse:[
+	Transcript show:'  '; show:myClass name; show:' -> '; showCr:myCategory.
+    ].
+
     done := false.
     [done] whileFalse:[
 	done := aStream atEnd.
@@ -131,6 +135,10 @@
 		    ignore := true
 		].
 		ignore ifFalse:[
+		    passChunk ifTrue:[
+			requestor source:aString
+		    ].
+
 		    method := myClass compilerClass
 				 compile:aString
 				 forClass:myClass
@@ -138,6 +146,7 @@
 				 notifying:requestor
 				 install:true
 				 skipIfSame:true.
+
 		    privacy notNil ifTrue:[
 			privacy == #private ifTrue:[
 			    method setToPrivate
@@ -157,5 +166,5 @@
     "read method-chunks from the input stream, aStream; compile them
      and add the methods to the class defined by the class-instance var"
 
-    self fileInFrom:aStream notifying:nil
+    self fileInFrom:aStream notifying:nil passChunk:false
 ! !