--- a/common/SCMAbstractFileoutLikeTask.st	Mon Jan 21 05:27:51 2013 -0800
+++ b/common/SCMAbstractFileoutLikeTask.st	Tue Jan 22 09:58:36 2013 +0000
@@ -514,10 +514,15 @@
 
     class theNonMetaclass
         methodsDo:[:mth|(self shouldFileOutMethod: mth) ifTrue:[^true]].
+
     class theMetaclass
         methodsDo:[:mth|(self shouldFileOutMethod: mth) ifTrue:[^true]].
+
     class privateClasses 
         do:[:cls|(self shouldFileOutClass: cls) ifTrue:[^true]].
+
+    (ChangeSet current includesChangeForClass:class) ifTrue:[ ^ true ].
+
     ^false
 
     "
@@ -532,7 +537,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: / 21-01-2013 / 19:35:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 shouldFileOutMethod: mth
@@ -567,3 +572,4 @@
 version_SVN
     ^ '§Id::                                                                                                                        §'
 ! !
+