--- a/VSEPackageFileSourceWriter.st	Thu Feb 05 15:10:01 2015 +0100
+++ b/VSEPackageFileSourceWriter.st	Thu Feb 05 16:01:52 2015 +0100
@@ -189,7 +189,7 @@
                 self halt:'method skipped'.
                 ^ self.
             ].
-            self halt:'save for Float instead of LPReal'.
+            "/ self halt:'save for Float instead of LPReal'.
             mclass := mclass isMeta ifTrue:[Float class] ifFalse:[Float].
         ].
         aStream nextPutAll:'MethodDefinition ',(self rewrittenClassNameOf:mclass theNonMetaclass).
@@ -297,7 +297,7 @@
 !
 
 writeHeaderOn:aStream
-    |releaseNr revisionNr author vsePackageName|
+    |releaseNr revisionNr author vsePackageName packageComment|
 
     releaseNr := 1.
     revisionNr := 1.
@@ -346,6 +346,7 @@
         author isNil ifTrue:[
             author := projectDefinitionClass revisionInfo author 
         ].
+        packageComment := projectDefinitionClass commentOrDocumentationString.
     ].
 
     self putEntry:'Header' value:nil on:aStream.
@@ -361,15 +362,19 @@
     self putEntry:nil value:(revisionNr asString) on:aStream.
     self putEntry:'Property' value:'Author' on:aStream.
     self putEntry:nil value:author on:aStream.
+    packageComment notEmptyOrNil ifTrue:[
+        self putEntry:'Property' value:'Comment' on:aStream.
+        self putEntry:nil value:packageComment on:aStream.
+    ].
 ! !
 
 !VSEPackageFileSourceWriter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.12 2015-02-05 13:16:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.13 2015-02-05 15:01:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.12 2015-02-05 13:16:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/VSEPackageFileSourceWriter.st,v 1.13 2015-02-05 15:01:52 cg Exp $'
 ! !