--- a/VSEPackageFileSourceWriter.st	Tue Feb 03 20:14:55 2015 +0100
+++ b/VSEPackageFileSourceWriter.st	Tue Feb 03 20:37:20 2015 +0100
@@ -108,6 +108,9 @@
     aClass class instanceVariableNames do:[:v |
         aStream nextPutLine:'ClassInstanceVariable ',v,'!!'.
     ].
+    aClass realSharedPoolNames do:[:nm |      
+        aStream nextPutLine:'Pool ',nm,'!!'.
+    ].
 
     aClass methodDictionary keys asNewOrderedCollection sort do:[:sel |
         self fileOutMethod:(aClass methodDictionary at:sel) isExtension:false on:aStream.
@@ -358,7 +361,7 @@
     self putEntry:'Version ' value:'1.0' on:aStream.
     self putEntry:'EndHeader' value:nil on:aStream.
 
-    self putEntry:'Package ' value:(packageName ? 'unnamed') on:aStream.
+    self putEntry:'Package ' value:(vsePackageName ? packageName ? 'unnamed') on:aStream.
     self putEntry:'Property' value:'Release' on:aStream.
     self putEntry:nil value:(releaseNr asString) on:aStream.
     self putEntry:'Property' value:'RevisionNumber' on:aStream.
@@ -385,6 +388,7 @@
 
     methodsToFileOut := self extensionMethodsFor:packageID.
 
+    self activityNotification:'checking for unportable unicode...'.
     classesToFileout do:[:eachClass |
         self ensureNoUnicodeInClass:eachClass
     ].
@@ -404,24 +408,27 @@
         rewriteQuery proceedWith:source.
     ] do:[
         classesToFileout do:[:eachClass |
+            self activityNotification:'exporting ',eachClass name,'...'.
             self fileOut:eachClass on:aStream
         ].
 
         "/ fileout extensions
+        self activityNotification:'exporting extensions...'.
         methodsToFileOut do:[:eachMethod |
             self fileOutMethod:eachMethod isExtension:true on:aStream.
             aStream cr.
         ].
     ].
+    self activityNotification:'done.'.
 ! !
 
 !VSEPackageFileSourceWriter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.6 2015-02-03 19:14:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.7 2015-02-03 19:37:20 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.6 2015-02-03 19:14:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.7 2015-02-03 19:37:20 cg Exp $'
 ! !