--- a/SourceCodeManagerUtilitiesForContainerBasedManagers.st	Fri Dec 01 00:27:47 2017 +0100
+++ b/SourceCodeManagerUtilitiesForContainerBasedManagers.st	Mon Dec 04 23:49:14 2017 +0100
@@ -424,6 +424,18 @@
                         with:packageToCheckIn allBold
                         with:classesInChangeSet size.
     
+        mgr notNil ifTrue:[
+            mgr isCVS ifTrue:[
+                |repos|
+                
+                repos := mgr repositoryForPackage:packageToCheckIn.
+                repos notNil ifTrue:[
+                    infoString := infoString,Character cr,('CVS Repository: "%1"' bindWith:repos)
+                ].    
+            ].    
+        ].
+
+
         checkinInfo := self
                     getCheckinInfoFor:infoString
                     initialAnswer:nil
@@ -556,7 +568,7 @@
     ].
 
     "Created: / 13-10-2011 / 11:15:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 20-06-2017 / 09:11:29 / cg"
+    "Modified: / 04-12-2017 / 23:17:58 / cg"
 ! !
 
 !SourceCodeManagerUtilitiesForContainerBasedManagers class methodsFor:'documentation'!