--- a/VSEPackageFileSourceWriter.st	Tue Feb 03 20:37:27 2015 +0100
+++ b/VSEPackageFileSourceWriter.st	Tue Feb 03 20:51:31 2015 +0100
@@ -14,7 +14,7 @@
 "{ NameSpace: Smalltalk }"
 
 VSEFileSourceWriter subclass:#VSEPackageFileSourceWriter
-	instanceVariableNames:'packageName projectDefinitionClass'
+	instanceVariableNames:'projectDefinitionClass'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Kernel-Classes-Support'
@@ -72,12 +72,6 @@
 "
 ! !
 
-!VSEPackageFileSourceWriter methodsFor:'accessing'!
-
-packageName:something
-    packageName := something.
-! !
-
 !VSEPackageFileSourceWriter methodsFor:'source writing'!
 
 fileOut:aClass on:aStream withTimeStamp:stampIt withInitialize:initIt withDefinition:withDefinition methodFilter:methodFilter encoder:encoderOrNil
@@ -361,7 +355,7 @@
     self putEntry:'Version ' value:'1.0' on:aStream.
     self putEntry:'EndHeader' value:nil on:aStream.
 
-    self putEntry:'Package ' value:(vsePackageName ? packageName ? 'unnamed') on:aStream.
+    self putEntry:'Package ' value:(vsePackageName ? (projectDefinitionClass package) ? '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.
@@ -373,7 +367,7 @@
 !VSEPackageFileSourceWriter methodsFor:'utilities'!
 
 fileOutPackage:packageID on:aStream
-    |classesToFileout methodsToFileOut rewriter vsePackageName|
+    |classesToFileout methodsToFileOut rewriter|
 
     projectDefinitionClass := packageID asPackageId projectDefinitionClass.
 
@@ -396,7 +390,6 @@
         self ensureNoUnicodeInMethod:eachClass
     ].
 
-    self packageName:(vsePackageName ? packageID).
     self writeHeaderOn:aStream.
 
     AbstractSourceFileWriter methodSourceRewriteQuery handle:[:rewriteQuery |
@@ -425,10 +418,10 @@
 !VSEPackageFileSourceWriter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.7 2015-02-03 19:37:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.8 2015-02-03 19:51:31 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.7 2015-02-03 19:37:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.8 2015-02-03 19:51:31 cg Exp $'
 ! !