--- a/SVN__FileoutLikeTask.st	Tue Mar 04 18:01:18 2014 +0100
+++ b/SVN__FileoutLikeTask.st	Thu Jul 31 11:02:40 2014 +0200
@@ -518,7 +518,7 @@
     "Yet another kludge to trick Smalltalk>>fileNameForClass:, sigh"
 
     savedClassFilenames := Dictionary new.
-    (def searchForClasses reject:[:e|e owningClass notNil]) do:
+    (def searchForClasses reject:[:e|e owningClass notNil or:[e isJavaClass ] ]) do:
         [:cls|
         savedClassFilenames 
             at: cls
@@ -529,6 +529,8 @@
         [:cls :classFileName|
         cls setClassFilename: classFileName].
     ^contents
+
+    "Modified: / 30-07-2014 / 20:43:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 shouldFileOutClass: class
@@ -536,6 +538,7 @@
     "Do not fileout autoloaded classes,
     they are untouched"
     class isLoaded ifFalse:[^false].
+    class theNonMetaclass isJavaClass ifTrue:[ ^ false ].
 
     class theNonMetaclass
         methodsDo:[:mth|(self shouldFileOutMethod: mth) ifTrue:[^true]].
@@ -560,7 +563,7 @@
 
     "Created: / 24-06-2009 / 19:04:48 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 19-08-2009 / 13:54:39 / Jan Vrany <vranyj1@fel.cvut.cz>"
-    "Modified: / 22-01-2013 / 09:55:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 31-07-2014 / 10:01:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 shouldFileOutMethod: mth