--- a/AbstractFileFinderApplicationComponent.st	Fri Mar 25 19:41:28 2016 +0100
+++ b/AbstractFileFinderApplicationComponent.st	Fri Mar 25 19:42:20 2016 +0100
@@ -39,6 +39,16 @@
 "
 ! !
 
+!AbstractFileFinderApplicationComponent class methodsFor:'queries'!
+
+isAbstract
+    "Return if this class is an abstract class.
+     True is returned here for myself only; false for subclasses.
+     Abstract subclasses must redefine this again."
+
+    ^ self == AbstractFileFinderApplicationComponent.
+! !
+
 !AbstractFileFinderApplicationComponent methodsFor:'accessing'!
 
 accessLock