--- a/ToolApplicationModel.st	Mon Feb 25 21:00:09 2002 +0100
+++ b/ToolApplicationModel.st	Mon Feb 25 21:01:24 2002 +0100
@@ -74,7 +74,7 @@
 
     |firstClassWithDocumentation src s line lines|
 
-    firstClassWithDocumentation := self class withAllSuperclasses detect:[:metacls| metacls implements:#documentation].
+    firstClassWithDocumentation := self class withAllSuperclasses detect:[:metacls| metacls includesSelector:#documentation].
     firstClassWithDocumentation notNil ifTrue:[
         (firstClassWithDocumentation inheritsFrom:ToolApplicationModel class) ifTrue:[
             src := (firstClassWithDocumentation compiledMethodAt:#documentation) source.
@@ -964,7 +964,7 @@
 valueOfHavingDocumentation
     "returns the enabling of having documentation for this tool as value holder"
 
-    ^ (builder booleanValueAspectFor:#valueOfHavingDocumentation) value: (self class implements: #openDocumentation)
+    ^ (builder booleanValueAspectFor:#valueOfHavingDocumentation) value: (self class includesSelector: #openDocumentation)
 !
 
 valueOfInfoLabel
@@ -1366,5 +1366,5 @@
 !ToolApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.107 2001-12-10 14:59:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.108 2002-02-25 20:01:24 cg Exp $'
 ! !