--- a/AbstractSourceFileWriter.st	Sat Jan 02 12:28:07 2010 +0000
+++ b/AbstractSourceFileWriter.st	Sat Jan 02 13:40:38 2010 +0000
@@ -61,6 +61,16 @@
 
     "Modified: / 16-08-2009 / 09:59:49 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Created: / 30-12-2009 / 18:34:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+fileOutPackageDefinition:packageId on:stream 
+    "Files out a package definition on the stream, so all subsequent
+     code entities will be placed in that package"
+    
+    self subclassResponsibility
+
+    "Modified: / 16-08-2009 / 09:59:49 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Created: / 30-12-2009 / 18:34:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !AbstractSourceFileWriter methodsFor:'source writing - comments'!
@@ -152,7 +162,7 @@
 !AbstractSourceFileWriter class methodsFor:'documentation'!
 
 version
-    ^ '$Id: AbstractSourceFileWriter.st 10490 2010-01-02 12:28:07Z vranyj1 $'
+    ^ '$Id: AbstractSourceFileWriter.st 10491 2010-01-02 13:40:38Z vranyj1 $'
 !
 
 version_CVS
@@ -160,5 +170,5 @@
 !
 
 version_SVN
-    ^ '$Id: AbstractSourceFileWriter.st 10490 2010-01-02 12:28:07Z vranyj1 $'
+    ^ '$Id: AbstractSourceFileWriter.st 10491 2010-01-02 13:40:38Z vranyj1 $'
 ! !

--- a/SmalltalkChunkFileSourceWriter.st	Sat Jan 02 12:28:07 2010 +0000
+++ b/SmalltalkChunkFileSourceWriter.st	Sat Jan 02 13:40:38 2010 +0000
@@ -459,6 +459,16 @@
     "Created: / 30-12-2009 / 18:43:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+fileOutPackageDefinition:pkg on:aStream 
+    (pkg notNil and:[ pkg ~= PackageId noProjectID ]) ifTrue:[
+        aStream nextPutAll:'"{ Package: '''.
+        aStream nextPutAll:pkg asString.
+        aStream
+            nextPutAll:''' }"'; cr; cr;
+            nextPut:$!!; cr; cr
+    ]
+!
+
 generateHeaderWithCopyrightOn:outStream
     |copyrightMethod copyrightText|
 
@@ -493,7 +503,7 @@
 !SmalltalkChunkFileSourceWriter class methodsFor:'documentation'!
 
 version
-    ^ '$Id: SmalltalkChunkFileSourceWriter.st 10490 2010-01-02 12:28:07Z vranyj1 $'
+    ^ '$Id: SmalltalkChunkFileSourceWriter.st 10491 2010-01-02 13:40:38Z vranyj1 $'
 !
 
 version_CVS
@@ -501,5 +511,5 @@
 !
 
 version_SVN
-    ^ '$Id: SmalltalkChunkFileSourceWriter.st 10490 2010-01-02 12:28:07Z vranyj1 $'
+    ^ '$Id: SmalltalkChunkFileSourceWriter.st 10491 2010-01-02 13:40:38Z vranyj1 $'
 ! !