--- a/ChangeSet.st	Thu Nov 08 17:34:57 2007 +0100
+++ b/ChangeSet.st	Thu Nov 29 11:21:15 2007 +0100
@@ -1685,10 +1685,16 @@
 "/        nameSpace ~~ Smalltalk ifTrue:[
 "/            className := nameSpace name , '::' , className
 "/        ].
-    ((selector == #'methods') or:[(selector == #'methodsFor')]) ifTrue:[
-        categoryName := 'uncategorized'
+    ((selector == #'methods') 
+    or:[(selector == #'publicMethods')
+    or:[(selector == #'methodsFor')]]) ifTrue:[
+        categoryName := 'uncategorized public'
     ] ifFalse:[
-        categoryName := (arguments at:1) evaluate.
+        (selector == #'privateMethods') ifTrue:[
+            categoryName := 'uncategorized private'
+        ] ifFalse:[
+            categoryName := (arguments at:1) evaluate.
+        ]
     ].
     inputStream skipSeparators.
     lineNumber := inputStream lineNumber.
@@ -1889,6 +1895,8 @@
      provides line-numbers; otherwise, nil is passed."
 
     (selector == #'methods'
+    or:[(selector == #'publicMethods')
+    or:[(selector == #'privateMethods')
     or:[(selector == #'methodsFor')
     or:[(selector == #'methodsFor:')
     or:[(selector == #'methodsForUndefined:')
@@ -1896,7 +1904,7 @@
     or:[(selector == #'privateMethodsFor:')
     or:[(selector == #'protectedMethodsFor:')
     or:[(selector == #'methodsFor:stamp:')
-    or:[(selector == #'ignoredMethodsFor:')]]]]]]]]) ifTrue:[
+    or:[(selector == #'ignoredMethodsFor:')]]]]]]]]]]) ifTrue:[
         ^ self handleMethodChange.
     ].
 
@@ -2297,5 +2305,5 @@
 !ChangeSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.151 2007-06-04 20:04:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.152 2007-11-29 10:21:15 fm Exp $'
 ! !