--- a/src/JavaClass.st	Tue Sep 04 21:16:50 2012 +0000
+++ b/src/JavaClass.st	Tue Sep 04 23:16:20 2012 +0000
@@ -1319,6 +1319,45 @@
 
     "Modified: 22.3.1997 / 14:30:28 / cg"
     "Created: 22.3.1997 / 14:35:43 / cg"
+!
+
+fileOutMethod:aMethod on:aStream
+    "file out aMethod onto aStream. Used for example to write individual changeChunks"
+
+    "/ WARNING: will be obsoleted by SmalltalkChunkFileSourceWriter
+
+    |cat source privacy|
+
+    aStream nextPutChunkSeparator.
+    aStream nextPutAll: 'JAVA'.
+    (self name tokensBasedOn: $/) do:[:each|
+        aStream space; nextPutAll: each.        
+    ].
+    (privacy := aMethod privacy) ~~ #public ifTrue:[
+        aStream space; nextPutAll:privacy; nextPutAll:'MethodsFor:'.
+    ] ifFalse:[
+        aStream nextPutAll:' methodsFor:'.
+    ].
+
+    cat := aMethod category ? ''.
+    aStream nextPutAll:cat asString storeString.
+    aStream nextPutChunkSeparator; cr; cr.
+
+    source := aMethod source.
+    source isNil ifTrue:[
+        FileOutErrorSignal
+            raiseRequestWith:self
+            errorString:(' - no source for method: ' ,
+                         self name , '>>' ,
+                         (self selectorAtMethod:aMethod))
+    ] ifFalse:[
+        aStream nextChunkPut:source.
+    ].
+    aStream space.
+    aStream nextPutChunkSeparator.
+    aStream cr
+
+    "Created: / 05-09-2012 / 00:01:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !JavaClass methodsFor:'interop support'!
@@ -2564,4 +2603,3 @@
 ! !
 
 JavaClass initialize!
-