--- a/SourceCodeManagerUtilitiesForContainerBasedManagers.st	Tue Feb 12 20:48:57 2019 +0100
+++ b/SourceCodeManagerUtilitiesForContainerBasedManagers.st	Fri Feb 15 09:37:21 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2012 eXept Software AG
               All Rights Reserved
@@ -109,15 +107,12 @@
                         ].
 
                         answer := Dialog 
-                            confirmWithCancel:(resources
+                            confirmWithRaiseAbortOnCancel:(resources
                                     stringWithCRs:'Cannot create new container: ''%3'' (in %1:%2).\\Retry?'
                                     with:module
                                     with:realDirectory
                                     with:realFileName).
 
-                         answer == nil ifTrue:[
-                            AbortOperationRequest raise
-                        ].
                         answer == false ifTrue:[ exit value:nil ].
                     ] loopWithExit.
                 ] ifFalse:[
@@ -139,7 +134,7 @@
                         ].
                         checkedInFiles add:fileName.
                     ] ifFalse:[
-                        Transcript showCR:'checkin of ' , realFileName , ' failed'.
+                        Transcript showCR:'checkin of %1 failed' with:realFileName.
                         anyFailure := true.
                     ].
                 ].
@@ -171,6 +166,7 @@
 
     "Created: / 05-12-2017 / 20:31:18 / cg"
     "Modified: / 05-12-2017 / 23:32:16 / cg"
+    "Modified: / 15-02-2019 / 09:36:53 / Claus Gittinger"
 !
 
 checkinExtensionMethods:aCollectionOfMethods forPackage:aPackageID withInfo:aLogInfoOrStringOrNil