--- a/Tools_ClassCategoryList.st	Tue Oct 20 10:39:09 2009 +0200
+++ b/Tools_ClassCategoryList.st	Tue Oct 20 10:39:18 2009 +0200
@@ -558,7 +558,7 @@
                                         and:[ (changedClasses includes:cls theNonMetaclass)
                                                 or:[(changedClasses includes:cls theMetaclass)] ].
                             included ifFalse:[
-                                included := showUndocumented and:[ isLoaded and:[ (cls theMetaclass implements:#documentation) not ]].
+                                included := showUndocumented and:[ isLoaded and:[ (cls theMetaclass includesSelector:#documentation) not ]].
                             ].
                         ].
                     ].
@@ -650,7 +650,7 @@
                         isLoaded := cls isLoaded.
                         isLoaded ifTrue:[ 
                             numUnloaded := numUnloaded + 1. 
-                            (cls theMetaclass implements:#documentation) ifFalse:[
+                            (cls theMetaclass includesSelector:#documentation) ifFalse:[
                                 numUndocumented := numUndocumented + 1.
                             ].
                         ].
@@ -885,5 +885,9 @@
 !ClassCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.26 2009-09-22 10:30:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.27 2009-10-20 08:39:18 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.27 2009-10-20 08:39:18 cg Exp $'
 ! !