--- a/SmalltalkChunkFileSourceWriter.st	Wed Oct 31 18:09:01 2012 +0000
+++ b/SmalltalkChunkFileSourceWriter.st	Thu Nov 08 00:01:28 2012 +0000
@@ -506,11 +506,13 @@
         self assert: method programmingLanguage isSmalltalk.
         stream nextPutChunkSeparator.
         "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
-            ]
+        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.
         ].
@@ -534,6 +536,7 @@
     ].
 
     "Created: / 30-12-2009 / 18:43:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 07-11-2012 / 23:59:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 fileOutPackageDefinition:pkg on:stream 
@@ -584,5 +587,5 @@
 !
 
 version_SVN
-    ^ '$Id: SmalltalkChunkFileSourceWriter.st 10858 2012-10-29 22:07:56Z vranyj1 $'
+    ^ '$Id: SmalltalkChunkFileSourceWriter.st 10862 2012-11-08 00:01:28Z vranyj1 $'
 ! !