--- a/Tools_ClassList.st	Fri Jul 29 12:55:38 2011 +0200
+++ b/Tools_ClassList.st	Fri Jul 29 12:56:30 2011 +0200
@@ -1875,6 +1875,15 @@
     "Modified: / 04-07-2011 / 19:00:45 / cg"
 ! !
 
+!ClassList methodsFor:'queries'!
+
+supportsSearch
+
+    ^(self componentAt: #List) notNil
+
+    "Created: / 28-07-2011 / 17:46:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !ClassList methodsFor:'setup'!
 
 autoSelect:aBoolean
@@ -1915,5 +1924,5 @@
 !ClassList class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.54 2011-07-20 18:19:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.55 2011-07-29 10:56:30 vrany Exp $'
 ! !