--- a/Tools_MethodCategoryList.st	Wed Jul 20 14:52:57 2011 +0200
+++ b/Tools_MethodCategoryList.st	Wed Jul 20 14:53:08 2011 +0200
@@ -1090,7 +1090,7 @@
 
     showPseudoProtocols := self showPseudoProtocols value 
                                 and:[builder window notNil and:[builder window shown]].
-    showCoverageInformation := showCoverageInformation value.
+    showCoverageInformation := self showCoverageInformation value.
 
     nameListEntryForALL := self class nameListEntryForALL.
 
@@ -1416,7 +1416,7 @@
     ^ categoryList
 
     "Created: / 05-02-2000 / 13:42:11 / cg"
-    "Modified: / 09-07-2011 / 10:07:32 / cg"
+    "Modified: / 20-07-2011 / 14:51:46 / cg"
 !
 
 makeDependent
@@ -1841,7 +1841,7 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.63 2011-07-09 08:38:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.64 2011-07-20 12:53:08 cg Exp $'
 ! !
 
 MethodCategoryList initialize!