--- a/SourceCodeManagerUtilitiesForContainerBasedManagers.st	Wed Apr 27 15:01:18 2016 +0200
+++ b/SourceCodeManagerUtilitiesForContainerBasedManagers.st	Fri Apr 29 12:29:04 2016 +0200
@@ -472,6 +472,8 @@
 
     askForMethodsInOtherPackages ifTrue:[
         methodsInOtherPackages notEmpty ifTrue:[
+            |package2|
+            
             otherPackages := Set new.
             methodsInOtherPackages do:[:eachMethod | otherPackages add:eachMethod package].
 
@@ -482,9 +484,14 @@
                 otherPackages size == 1 ifTrue:[
                     msg := 'The %1 methods from the %2 package will remain in their package.'
                 ] ifFalse:[
-                    msg := 'The %1 methods from %3 other packages will remain in their packages.'
+                    package2 := otherPackages second allBold.
+                    otherPackages size == 2 ifTrue:[
+                        msg := 'The %1 methods from %3 other packages (%2, %6) will remain in their packages.'.
+                    ] ifFalse:[
+                        msg := 'The %1 methods from %3 other packages (%2, %6...) will remain in their packages.'.
+                    ].
                 ].
-                msg := msg , '\\Hint: if these are meant to belong to this package,'.
+                msg := msg , '\\Hint: if these are meant to belong to the %7 package,'.
                 msg := msg , '\move them first, then repeat the checkin operation.'.
             ].
             msg := msg withCRs.
@@ -492,7 +499,9 @@
                            with:otherPackages first allBold
                            with:otherPackages size
                            with:methodsInOtherPackages first selector allBold
-                           with:methodsInOtherPackages first mclass name allBold.
+                           with:methodsInOtherPackages first mclass name allBold
+                           with:package2
+                           with:packageToCheckIn.
             (Dialog confirm:msg noLabel:(resources string:'Cancel')) ifFalse:[^ self].
         ].
     ].