--- a/SmalltalkChunkFileSourceWriter.st	Sat Jan 19 01:30:00 2013 +0000
+++ b/SmalltalkChunkFileSourceWriter.st	Sat Jan 19 20:55:31 2013 +0000
@@ -499,7 +499,17 @@
         [:method| |cat source privacy|
 
         stream nextPutChunkSeparator.
-        method mclass name printOn:stream.
+        "JV@2012-09-05: Support for filing out Java extension methods"
+        method mclass theNonMetaclass isJavaClass ifTrue:[
+            stream nextPutAll:'(Java classForName:'''.
+            stream nextPutAll:(method mclass theNonMetaclass name copyReplaceAll:$/ with: $.).
+            stream nextPutAll:''')'.
+            method mclass isMetaclass ifTrue:[
+                stream nextPutAll: ' class'.
+            ].
+        ] ifFalse:[
+            method mclass name printOn:stream.
+        ].
         "/        self printClassNameOn:aStream.
 
         (privacy := method privacy) ~~ #public ifTrue:[