--- a/Tools__LintService.st	Tue Jul 23 20:55:42 2013 +0100
+++ b/Tools__LintService.st	Wed Jul 24 11:15:26 2013 +0100
@@ -74,6 +74,17 @@
     "Created: / 05-08-2011 / 11:01:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!LintService class methodsFor:'testing'!
+
+isUsefulFor:aCodeView
+    "this filters useful services.
+     Redefined to return true for myself - not for subclasses"
+
+    ^ self == Tools::LintService
+
+    "Created: / 22-07-2013 / 14:01:38 / cg"
+! !
+
 !LintService methodsFor:'accessing'!
 
 syntaxHighlighter
@@ -204,11 +215,11 @@
 !LintService class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintService.st,v 1.7 2013-07-04 17:06:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintService.st,v 1.8 2013-07-22 12:01:53 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintService.st,v 1.7 2013-07-04 17:06:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintService.st,v 1.8 2013-07-22 12:01:53 cg Exp $'
 !
 
 version_HG