--- a/JavaClass.st	Tue Dec 11 23:15:40 2012 +0000
+++ b/JavaClass.st	Wed Dec 12 23:20:03 2012 +0000
@@ -1320,6 +1320,19 @@
     "Created: 22.3.1997 / 14:35:43 / cg"
 !
 
+fileOutInto: directory 
+    "writes itself into the given directory including package hierarchy"
+    
+    | packageDir |
+    packageDir := directory / self javaPackageAsDirname.
+    packageDir recursiveMakeDirectory.
+    packageDir / (self lastName , '.java') 
+        writingFileDo: [:out | self fileOutOn: out ].
+
+    "Created: / 08-12-2012 / 22:32:19 / Marcel Hlopko <marcel.hlopko@fit.cvut.cz>"
+    "Modified: / 09-12-2012 / 09:07:58 / Marcel Hlopko <marcel.hlopko@fit.cvut.cz>"
+!
+
 fileOutMethod:aMethod on:aStream
     "file out aMethod onto aStream. Used for example to write individual changeChunks"
 
@@ -1362,6 +1375,12 @@
 
     "Created: / 05-09-2012 / 00:01:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 07-11-2012 / 23:43:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+fileOutOn: aWriteStream
+aWriteStream nextPutAll: self theNonMetaclass source.
+
+    "Created: / 08-12-2012 / 22:25:28 / Marcel Hlopko <marcel.hlopko@fit.cvut.cz>"
 ! !
 
 !JavaClass methodsFor:'interop support'!
@@ -2672,16 +2691,11 @@
 !JavaClass class methodsFor:'documentation'!
 
 version
-    ^ '$Header$'
-!
-
-version_HG
-
-    ^ '$Changeset: <not expanded> $'
+    ^ '$Id$'
 !
 
 version_SVN
-    ^ '§Id§'
+    ^ '$Id$'
 ! !
 
 JavaClass initialize!