--- a/ChangesBrowser.st	Fri Feb 03 17:06:28 2006 +0100
+++ b/ChangesBrowser.st	Fri Feb 03 17:31:48 2006 +0100
@@ -745,6 +745,7 @@
            #'categoriesFor:'              "/ Dolphin support
            #methods                       "/ STV support
            #publicMethods                 "/ STV / V'Age support
+           #privateMethods                "/ STV / V'Age support
            #'methodsForUndefined:'
         )
 ! !
@@ -3569,6 +3570,7 @@
                     ] ifTrue:[
                         selector numArgs == 0 ifTrue:[
                             cat := '* as yet uncategorized *'.
+                            cat := selector.
                         ] ifFalse:[
                             cat := parseTree arg1 evaluate.
                         ].
@@ -5379,14 +5381,11 @@
                     changeType := '(category change)'.
                     methodSelector := (p args at:1) evaluate.
                 ] ifFalse:[
-                    (sel == #'methodsFor') ifTrue:[
-                        category := 'Dolphin methods'.
+                    (sel numArgs == 0) ifTrue:[
+                        category := '* As yet uncategorized *'.
+                        category := sel.
                     ] ifFalse:[
-                        ((sel == #methods) or:[sel == #publicMethods]) ifTrue:[
-                            category := 'STV methods'.
-                        ] ifFalse:[
-                            category := (p args at:1) evaluate.
-                        ]
+                        category := (p args at:1) evaluate.
                     ].
                 ].
             ].
@@ -5803,5 +5802,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.341 2006-02-03 15:31:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.342 2006-02-03 16:31:48 cg Exp $'
 ! !