--- a/SmalltalkChunkFileSourceWriter.st	Tue Aug 21 11:46:45 2012 +0100
+++ b/SmalltalkChunkFileSourceWriter.st	Wed Sep 05 00:27:33 2012 +0100
@@ -428,7 +428,15 @@
         [:method| |cat source privacy|
 
         stream nextPutChunkSeparator.
-        method mclass name printOn:stream.
+        "JV@2012-09-05: Support for filing out Java extension methods"
+        method mclass isJavaClass ifTrue:[
+            stream nextPutAll: 'JAVA '.
+            (method mclass name tokensBasedOn:$/) do:[:each|
+                stream space; nextPutAll: each
+            ]
+        ] ifFalse:[
+            method mclass name printOn:stream.
+        ].
         "/        self printClassNameOn:aStream.
 
         (privacy := method privacy) ~~ #public ifTrue:[
@@ -498,6 +506,5 @@
 !
 
 version_SVN
-    ^ '$Id: SmalltalkChunkFileSourceWriter.st 10729 2011-10-31 22:19:21Z vranyj1 $'
+    ^ '$Id: SmalltalkChunkFileSourceWriter.st 10841 2012-09-04 23:27:33Z vranyj1 $'
 ! !
-