--- a/SourceCodeManagerUtilities.st	Mon Sep 25 21:08:41 2006 +0200
+++ b/SourceCodeManagerUtilities.st	Mon Sep 25 21:33:33 2006 +0200
@@ -369,9 +369,16 @@
                 aborted := true.
                 ex return.
             ] do:[
-                (mgr checkinClass:aClass logMessage:logMessage) ifFalse:[
-                    Transcript showCR:'checkin of ''' , aClass name , ''' failed'.
-                    self warn:'checkin of ''' , aClass name allBold , ''' failed'.
+                |checkinState cause|
+                checkinState := false.
+                cause := ''.
+                [
+                    checkinState := mgr checkinClass:aClass logMessage:logMessage
+                ] on:SourceCodeManagerError do:[:ex| cause := ex description].
+
+                checkinState ifFalse:[
+                    Transcript showCR:'checkin of ''' , aClass name , ''' failed - ', cause.
+                    self warn:'checkin of ''' , aClass name allBold , ''' failed - ', cause.
                     ^ false.
                 ].
                 checkinInfo notNil ifTrue:[
@@ -2596,5 +2603,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.140 2006-09-21 15:45:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.141 2006-09-25 19:33:33 stefan Exp $'
 ! !