--- a/SourceCodeManagerUtilities.st	Fri Oct 22 11:50:46 2010 +0200
+++ b/SourceCodeManagerUtilities.st	Mon Nov 01 15:39:42 2010 +0100
@@ -410,6 +410,13 @@
     "/ heuristics for a useful initial log message...
     aLogInfoNil isNil ifTrue:[
         initialLogMessage := self goodInitialLogMessageForCheckinClassOfClass:aClass.
+        initialLogMessage isEmptyOrNil ifTrue:[
+            "/ initial checkin ?
+            (aClass package isNil or:[aClass revision isNil]) ifTrue:[ 
+                initialLogMessage := 'initial checkin'
+            ] ifFalse:[
+            ].
+        ].
         checkinInfo := self 
                         getCheckinInfoFor:aClass name 
                         initialAnswer:initialLogMessage.
@@ -510,7 +517,7 @@
     ].
     ^ true
 
-    "Modified: / 25-10-2006 / 09:43:26 / cg"
+    "Modified: / 01-11-2010 / 15:38:45 / cg"
 !
 
 checkinClasses:aCollectionOfClass
@@ -3196,9 +3203,9 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.205 2010-08-07 17:13:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.206 2010-11-01 14:39:42 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.205 2010-08-07 17:13:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.206 2010-11-01 14:39:42 cg Exp $'
 ! !