--- a/SourceCodeManagerUtilities.st	Sun Dec 10 15:57:48 2000 +0100
+++ b/SourceCodeManagerUtilities.st	Mon Dec 11 22:01:47 2000 +0100
@@ -517,17 +517,15 @@
             ].
             aborted ifTrue:[
                 Transcript showCR:'checkin of ''' , aClass name , ''' aborted'.
-                (Dialog 
-                    confirm:('checkin of ''' , aClass name , ''' aborted.\\Cancel all ?')withCRs
-                    default:false)
-                ifTrue:[
-                    AbortAllSignal isHandled ifTrue:[
+                AbortAllSignal isHandled ifTrue:[
+                    (Dialog 
+                        confirm:('checkin of ''' , aClass name , ''' aborted.\\Cancel all ?')withCRs
+                        default:false)
+                    ifTrue:[
                         AbortAllSignal raise.
-                    ] ifFalse:[
-                        AbortSignal raise.
-                    ].
-                    ^ false
+                    ]
                 ].
+                AbortSignal raise.
                 ^ false.
             ].
         ].
@@ -1806,5 +1804,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.48 2000-12-08 13:05:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.49 2000-12-11 21:01:11 cg Exp $'
 ! !