--- a/SourceCodeManagerUtilities.st	Mon Aug 15 18:10:40 2016 +0200
+++ b/SourceCodeManagerUtilities.st	Mon Aug 15 18:11:37 2016 +0200
@@ -3390,10 +3390,23 @@
         (aClass package isNil or:[(aClass revisionOfManager:manager) "revision" isNil]) ifTrue:[ 
             initialLogMessage := 'initial checkin\\' withCRs , initialLogMessage
         ].
-        checkinInfo := self 
-                        getCheckinInfoFor:aClass name 
-                        initialAnswer:initialLogMessage.
+        aClass isProjectDefinition ifTrue:[
+            checkinInfo := self 
+                            getCheckinInfoFor:aClass name 
+                            initialAnswer:initialLogMessage
+                            withQuickOption:false
+                            withValidateConsistencyOption:true
+        ] ifFalse:[
+            checkinInfo := self 
+                            getCheckinInfoFor:aClass name 
+                            initialAnswer:initialLogMessage.
+        ].
         checkinInfo isNil ifTrue:[^ false].
+
+        checkinInfo validateConsistency ifTrue:[
+            self validateConsistencyOfPackage:aClass package doClasses:false doExtensions:false.
+        ].
+
         logMessage := checkinInfo logMessage.
 
         reasonLine := '#OTHER'. 
@@ -4387,7 +4400,8 @@
      Return the info-object (actually: the dialog) or nil if aborted."
 
     ^  self 
-        getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil withQuickOption:withQuickOption
+        getCheckinInfoFor:aClassNameOrPackageNameString initialAnswer:initialAnswerOrNil 
+        withQuickOption:withQuickOption
         withValidateConsistencyOption:false
 
     "