--- a/VSEChunkFileSourceWriter.st	Tue Feb 03 20:37:20 2015 +0100
+++ b/VSEChunkFileSourceWriter.st	Tue Feb 03 20:37:27 2015 +0100
@@ -267,6 +267,7 @@
         first := true.
 
         classesToFileout do:[:eachClass |
+            self activityNotification:'writing ',eachClass name,'...'.
             self 
                 fileOut:eachClass on:aStream 
                 withTimeStamp:first withInitialize:true 
@@ -276,6 +277,7 @@
         ].
 
         "/ fileout extensions
+        self activityNotification:'writing extensions...'.
         Smalltalk allClassesDo:[:eachClass |
             (classesToFileout includes:eachClass) ifFalse:[
                 eachClass instAndClassSelectorsAndMethodsDo:[:sel :mthd |
@@ -308,15 +310,16 @@
             aStream cr.
         ].
     ].
+    self activityNotification:'done.'.
 ! !
 
 !VSEChunkFileSourceWriter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/VSEChunkFileSourceWriter.st,v 1.8 2015-02-02 15:12:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/VSEChunkFileSourceWriter.st,v 1.9 2015-02-03 19:37:27 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/VSEChunkFileSourceWriter.st,v 1.8 2015-02-02 15:12:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/VSEChunkFileSourceWriter.st,v 1.9 2015-02-03 19:37:27 cg Exp $'
 ! !