--- a/SourceCodeManagerUtilities.st	Fri Oct 09 13:40:59 2009 +0200
+++ b/SourceCodeManagerUtilities.st	Fri Oct 09 15:09:11 2009 +0200
@@ -397,7 +397,7 @@
 
     "/ heuristics for a useful initial log message...
     aLogInfoNil isNil ifTrue:[
-        initialLogMessage := self  goodInitialLogMessageForCheckinClassOfClass:aClass.
+        initialLogMessage := self goodInitialLogMessageForCheckinClassOfClass:aClass.
         checkinInfo := self 
                         getCheckinInfoFor:aClass name 
                         initialAnswer:initialLogMessage.
@@ -2984,9 +2984,10 @@
 
     |selectorsInChangeSet newSelectors modifiedSelectors
      classChanges changesForThisClass definitionChangesForThisClass methodChangesForThisClass 
-     allMethodChangesForThisClass modifiedMethodsForThisClass newMethodsForThisClass 
+     allMethodChangesForThisClass modifiedMethodsForThisClass newMethodsForThisClass removedMethodsForThisClass
      initialLogStream printSelectors selectorsWithCommentOrFormattingChangeOnly
-     selectorsWithVariableChangeOnly|
+     selectorsWithVariableChangeOnly 
+     removedSelectors categoryChanges categoryChangeSelectors|
 
     "/ a helper function
     printSelectors := 
@@ -3020,6 +3021,9 @@
 
     definitionChangesForThisClass := changesForThisClass 
                                 select:[:aChange | aChange isMethodChange not].
+    categoryChanges := changesForThisClass 
+                                select:[:aChange | aChange isMethodCategoryChange]. 
+    categoryChangeSelectors := categoryChanges collect:[:aChange | aChange changeSelector] as:Set.
     allMethodChangesForThisClass := changesForThisClass 
                                 select:[:aChange | aChange isMethodCodeChange].
     selectorsInChangeSet := allMethodChangesForThisClass collect:[:aChange | aChange changeSelector] as:Set.
@@ -3034,6 +3038,10 @@
                                 select:[:aChange | aChange previousVersion isNil].
     newSelectors := newMethodsForThisClass collect:[:aChange | aChange changeSelector] as:Set.
     
+    removedMethodsForThisClass := allMethodChangesForThisClass 
+                                select:[:aChange | aChange isMethodRemoveChange].
+    removedSelectors := removedMethodsForThisClass collect:[:aChange | aChange changeSelector] as:Set.
+
     initialLogStream := '' writeStream.
 
     definitionChangesForThisClass isEmpty ifTrue:[
@@ -3043,6 +3051,7 @@
             printSelectors value:'added' value:newSelectors.
         ].
         modifiedSelectors removeAllFoundIn:newSelectors.
+        categoryChangeSelectors removeAllFoundIn:newSelectors.
 
         modifiedSelectors notEmpty ifTrue:[
             selectorsWithCommentOrFormattingChangeOnly := Set new.
@@ -3087,6 +3096,9 @@
                 printSelectors value:'changed' value:modifiedSelectors.
             ].
         ].
+        categoryChanges notEmpty ifTrue:[
+            printSelectors value:'category of' value:categoryChangeSelectors.
+        ].
     ].
     ^ initialLogStream contents
 ! !
@@ -3143,9 +3155,9 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.192 2009-10-09 11:40:59 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.193 2009-10-09 13:09:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.192 2009-10-09 11:40:59 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.193 2009-10-09 13:09:11 cg Exp $'
 ! !