--- a/SrcFLoader.st	Tue Apr 11 17:30:32 1995 +0200
+++ b/SrcFLoader.st	Tue May 02 01:04:40 1995 +0200
@@ -13,7 +13,7 @@
 'From Smalltalk/X, Version:2.10.4 on 24-feb-1995 at 3:12:23 am'!
 
 Object subclass:#SourceFileLoader
-	 instanceVariableNames:'myStream currentSource package'
+	 instanceVariableNames:'myStream currentSource package wantChangeLog'
 	 classVariableNames:''
 	 poolDictionaries:''
 	 category:'System-Compiler'
@@ -23,7 +23,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/Attic/SrcFLoader.st,v 1.2 1995-04-11 15:30:32 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Attic/SrcFLoader.st,v 1.3 1995-05-01 23:04:30 claus Exp $
 "
 !
 
@@ -53,7 +53,7 @@
 !SourceFileLoader class methodsFor:'instance creation'!
 
 on:aStream
-    ^ self new reader:aStream
+    ^ self new reader:aStream wantChangeLog:false
 ! !
 
 !SourceFileLoader methodsFor:'error handling'!
@@ -74,7 +74,7 @@
     "
 "/    position printOn:Transcript.
 "/    Transcript show:' '.
-    Transcript showCr:aMessage.
+    Transcript show:'**  '; showCr:aMessage.
     ^ false
 
 !
@@ -89,8 +89,19 @@
 
 !SourceFileLoader methodsFor:'private access'!
 
-reader:aStream
-    myStream := aStream
+reader:aStream wantChangeLog:aBoolean
+    myStream := aStream.
+    wantChangeLog := aBoolean
+! !
+
+!SourceFileLoader methodsFor:'compiler queries'!
+
+wantChangeLog
+    "sent by the compiler to ask if a changeLog entry should
+     be written. Return false here, since SourceFileLaoders are
+     used to read existing source files"
+
+    ^ wantChangeLog
 ! !
 
 !SourceFileLoader methodsFor:'directve processing'!