--- a/BrowserView.st	Wed Aug 01 16:46:59 2001 +0200
+++ b/BrowserView.st	Wed Aug 01 16:49:12 2001 +0200
@@ -6204,7 +6204,7 @@
 !
 
 updateClassMethodListWithScroll:scroll keepSelection:keep
-    |newList selection s|
+    |newList selection|
 
     newList := OrderedCollection new.
     selection := classMethodListView selection.
@@ -6236,7 +6236,7 @@
                     s := s , ' ???'
                 ] ifFalse:[
                     ShowMethodCategoryInClassMethodList == true ifTrue:[
-                        s := s , '  {' , mthd category asText allItalic, '}'
+                        s := s , '  {' , mthd category allItalic, '}'
                     ].
                     s := (self 
                             listEntryForMethod:mthd 
@@ -13752,6 +13752,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.659 2001-05-22 23:11:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.660 2001-08-01 14:48:48 cg Exp $'
 ! !
 BrowserView initialize!