--- a/Class.st	Mon Dec 13 12:40:31 1993 +0100
+++ b/Class.st	Thu Dec 16 11:53:27 1993 +0100
@@ -45,7 +45,7 @@
 
 WARNING: layout known by compiler and runtime system
 
-$Header: /cvs/stx/stx/libbasic/Class.st,v 1.5 1993-11-08 02:29:39 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Class.st,v 1.6 1993-12-16 10:52:05 claus Exp $
 written Spring 89 by claus
 '!
 
@@ -701,14 +701,14 @@
     ]
 !
 
-addChangeRecordForSnapshot
+addChangeRecordForSnapshot:aFileName
     "add a snapshot-record to the changes file"
 
     |aStream|
 
     aStream := self changesStream.
     aStream notNil ifTrue:[
-        aStream nextPutAll:('''---- snapshot ' ,
+        aStream nextPutAll:('''---- snapshot ' , aFileName , ' ',
                             Date today printString , ' ' ,
                             Time now printString ,
                             ' ----''!!').