--- a/Tools_MethodCategoryList.st	Wed Oct 14 07:21:44 2009 +0200
+++ b/Tools_MethodCategoryList.st	Wed Oct 14 12:10:22 2009 +0200
@@ -1036,7 +1036,7 @@
     generator := inGeneratorHolder value.
     generator isNil ifTrue:[ ^ #() ].
 
-    showPseudoProtocols := self showPseudoProtocols 
+    showPseudoProtocols := self showPseudoProtocols value 
                            and:[ builder window shown ].
 
     nameListEntryForALL := self class nameListEntryForALL.
@@ -1611,11 +1611,11 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.38 2009-10-12 18:10:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.39 2009-10-14 10:10:22 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.38 2009-10-12 18:10:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.39 2009-10-14 10:10:22 cg Exp $'
 ! !
 
 MethodCategoryList initialize!