--- a/common/SCMAbstractFileoutLikeTask.st	Sat Mar 01 00:22:00 2014 +0000
+++ b/common/SCMAbstractFileoutLikeTask.st	Mon Mar 03 10:21:31 2014 +0000
@@ -630,46 +630,12 @@
 !
 
 shouldFileOutClass: class
-
-    "Do not fileout autoloaded classes,
-    they are untouched"
-    class isLoaded ifFalse:[^false].
-
-    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
-
-    "
-        CommitTask basicNew
-            package: #'stx:libsvn';
-            shouldFileOutClass: CommitTask
-
-        CommitTask basicNew
-            package: #'stx:libbasic';
-            shouldFileOutClass: Object
-    "
+    ^ packages anySatisfy:
+        [:p | p name = class package and:[ p hasChangesInClass: class ] ]
 
     "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: / 21-01-2013 / 19:35:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-shouldFileOutMethod: mth
-
-    ^ (packages contains:[:p | mth package = p name ]) 
-        and: [mth getSourcePosition isNil]
-
-    "Created: / 24-06-2009 / 19:07:27 / Jan Vrany <vranyj1@fel.cvut.cz>"
-    "Modified: / 21-02-2014 / 22:53:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 03-03-2014 / 09:18:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !SCMAbstractFileoutLikeTask methodsFor:'queries'!