--- a/ToolApplicationModel.st	Tue Jul 21 14:16:08 1998 +0200
+++ b/ToolApplicationModel.st	Wed Jul 22 13:16:57 1998 +0200
@@ -255,8 +255,6 @@
 'Test functions.'
 
 )
-
-    "Modified: / 19.5.1998 / 21:32:01 / cg"
 ! !
 
 !ToolApplicationModel class methodsFor:'history'!
@@ -772,11 +770,9 @@
 !
 
 valueOfHavingDocumentation
-    "returns whether there is a documentation method for this tool as value holder"
+    "returns the enabling of having documentation for this tool as value holder"
 
-    ^ builder booleanValueAspectFor:#valueOfHavingDocumentation
-
-    "Modified: / 21.5.1998 / 03:39:56 / cg"
+    ^ (builder booleanValueAspectFor:#valueOfEnablingCommitButtons) value: (self class implements: #openDocumentation)
 !
 
 valueOfInfoLabel
@@ -1199,5 +1195,5 @@
 !ToolApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.63 1998-06-29 14:55:19 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.64 1998-07-22 11:16:57 tz Exp $'
 ! !