--- a/SourceCodeManagerUtilities.st	Sat Jan 22 18:12:33 2011 +0100
+++ b/SourceCodeManagerUtilities.st	Thu Jan 27 09:26:11 2011 +0100
@@ -412,7 +412,7 @@
         initialLogMessage := (self goodInitialLogMessageForCheckinClassOfClass:aClass) ? ''.
         "/ initial checkin ?
         (aClass package isNil or:[aClass revision isNil]) ifTrue:[ 
-            initialLogMessage := 'initial checkin' withCRs , initialLogMessage
+            initialLogMessage := 'initial checkin\\' withCRs , initialLogMessage
         ].
         checkinInfo := self 
                         getCheckinInfoFor:aClass name 
@@ -514,7 +514,7 @@
     ].
     ^ true
 
-    "Modified: / 22-01-2011 / 18:11:06 / cg"
+    "Modified: / 27-01-2011 / 09:25:50 / cg"
 !
 
 checkinClasses:aCollectionOfClass
@@ -3088,7 +3088,7 @@
     removedSelectors := removedMethodsForThisClass collect:[:aChange | aChange changeSelector] as:Set.
 
     initialLogStream := '' writeStream.
-
+    "/ definition?
     "/ suppress definition-message if initial checkin
     (aClass package isNil or:[aClass revision isNil]) ifFalse:[ 
         definitionChangesForThisClass notEmpty ifTrue:[
@@ -3097,15 +3097,26 @@
         ].
     ].
 
+    "/ added selectors?
     newSelectors notEmpty ifTrue:[
         printSelectors value:'added' value:newSelectors.
     ].
     modifiedSelectors removeAllFoundIn:newSelectors.
     categoryChangeSelectors removeAllFoundIn:newSelectors.
 
+    "/ removed selectors?
+    removedSelectors notEmpty ifTrue:[
+        printSelectors value:'removed' value:removedSelectors.
+    ].
+    modifiedSelectors removeAllFoundIn:removedSelectors.
+    categoryChangeSelectors removeAllFoundIn:removedSelectors.
+
+    "/ modifications?
     modifiedSelectors notEmpty ifTrue:[
         selectorsWithCommentOrFormattingChangeOnly := Set new.
         selectorsWithVariableChangeOnly := Set new.
+
+        "/ cehck for format/comment change
         RBParser notNil ifTrue:[
             modifiedSelectors do:[:eachSelector |
                 |oldest newest oldMethod newMethod oldTree newTree variableMapping|
@@ -3133,6 +3144,7 @@
                 ]
             ].
         ].
+
         modifiedSelectors removeAllFoundIn:selectorsWithCommentOrFormattingChangeOnly.
         modifiedSelectors removeAllFoundIn:selectorsWithVariableChangeOnly.
 
@@ -3151,7 +3163,7 @@
     ].
     ^ initialLogStream contents
 
-    "Modified: / 22-01-2011 / 18:11:56 / cg"
+    "Modified: / 27-01-2011 / 09:25:30 / cg"
 ! !
 
 !SourceCodeManagerUtilities class methodsFor:'utilities-encoding'!
@@ -3206,9 +3218,9 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.208 2011-01-22 17:12:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.209 2011-01-27 08:26:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.208 2011-01-22 17:12:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.209 2011-01-27 08:26:11 cg Exp $'
 ! !