--- a/DebugView.st	Fri Jul 07 12:53:06 2017 +0200
+++ b/DebugView.st	Thu Jul 13 15:02:45 2017 +0200
@@ -3820,14 +3820,14 @@
     "Modified: / 26-09-2012 / 15:08:21 / cg"
 !
 
-setLabelFor:aMessage in:aProcess
+setLabelFor:errorDescriptionMessage in:aProcess
     |l lines processNameOrNil pidOrNil osPidString colorUsed|
 
-    lines := aMessage asStringCollection.
+    lines := errorDescriptionMessage asStringCollection.
     lines size > 1 ifTrue:[
         l := lines first
     ] ifFalse:[
-        l := aMessage.
+        l := errorDescriptionMessage.
     ].
 
     l := l , ' ('.
@@ -3860,10 +3860,14 @@
                     with:(lines first withColor:colorUsed)
                     with:(processNameOrNil ? '')
                     with:(pidOrNil ? '')
-                    with:(osPidString ? ''))
-    ].
-
-    "Modified: / 06-07-2006 / 12:43:19 / cg"
+                    with:(osPidString ? '')).
+
+        exceptionInfoLabel 
+            flyByHelpText:(((resources stringWithCRs:'Error description:\') withColor:Color gray)
+                          ,(lines asStringWith:Character cr)).
+    ].
+
+    "Modified: / 13-07-2017 / 15:00:36 / cg"
 ! !
 
 !DebugView methodsFor:'interrupt handling'!