--- a/SVN__FileoutLikeTask.st	Tue Dec 11 15:37:03 2012 +0100
+++ b/SVN__FileoutLikeTask.st	Tue Jan 22 10:56:09 2013 +0100
@@ -543,6 +543,9 @@
         methodsDo:[:mth|(self shouldFileOutMethod: mth) ifTrue:[^true]].
     class privateClasses 
         do:[:cls|(self shouldFileOutClass: cls) ifTrue:[^true]].
+
+    (ChangeSet current includesChangeForClass:class) ifTrue:[ ^ true ].
+
     ^false
 
     "
@@ -557,7 +560,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: / 10-12-2010 / 00:22:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 22-01-2013 / 09:55:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 shouldFileOutMethod: mth
@@ -597,3 +600,4 @@
     ^ '§Id: SVN__FileoutLikeTask.st 372 2011-09-29 10:47:58Z vranyj1 §'
 
 ! !
+