SourceCodeManagerUtilities.st
changeset 4362 cd8a7d6bfc1d
parent 4359 f46715e6c974
child 4402 799e4a103839
--- a/SourceCodeManagerUtilities.st	Thu Oct 04 17:02:01 2018 +0200
+++ b/SourceCodeManagerUtilities.st	Thu Oct 04 17:02:47 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2000 eXept Software AG
               All Rights Reserved
@@ -4092,10 +4090,11 @@
     "/
     SourceCodeManagerError handle:[:ex |
         Dialog warn:(resources 
-                                stringWithCRs:'Could not fetch revision info of "%1".\\Please check your sourcecode manager settings of %2 for package: "%3".\(and possibly the network for reachability of the repository)'
-                                with:classToCompare name
-                                with:classToCompare sourceCodeManager managerTypeName
-                                with:classToCompare package).
+                        stringWithCRs:'Could not fetch revision info of "%1".\Reported error: %4\\Please check your sourcecode manager settings of %2 for package: "%3".\(and possibly the network for reachability of the repository)'
+                        with:classToCompare name
+                        with:classToCompare sourceCodeManager managerTypeName
+                        with:classToCompare package
+                        with:(ex description asString withoutSeparators)).
         ^ nil.
     ] do:[
         newestRev := mgr newestRevisionOf:classToCompare.
@@ -4175,6 +4174,7 @@
     "
 
     "Modified: / 24-07-2012 / 18:11:27 / cg"
+    "Modified: / 04-10-2018 / 15:36:05 / Claus Gittinger"
 !
 
 getLogMessageForClassCheckinTakingDefaultsFromPreviousLogInfo:aLogInfoOrNil forClass:aClass valuesInto:aBlock