diff -r fcf829cdb3fc -r 2333af91763e DebugView.st
--- a/DebugView.st	Thu Oct 27 11:30:02 2016 +0200
+++ b/DebugView.st	Sun Oct 30 14:23:06 2016 +0100
@@ -3760,7 +3760,7 @@
 !
 
 setLabelFor:aMessage in:aProcess
-    |l lines processNameOrNil pidOrNil osPidString|
+    |l lines processNameOrNil pidOrNil osPidString colorUsed|
 
     lines := aMessage asStringCollection.
     lines size > 1 ifTrue:[
@@ -3788,10 +3788,23 @@
     ].
 
     exceptionInfoLabel notNil ifTrue:[
+        colorUsed := isStoppedAtHaltOrBreakPoint 
+                        ifTrue:[ Color orange ]
+                        ifFalse:[ Color red ].
+                        
+        (exceptionInfoLabel backgroundColor brightness dist:colorUsed brightness) < 0.5
+        ifTrue:[
+            exceptionInfoLabel backgroundColor brightness > 0.5 ifTrue:[
+                colorUsed := colorUsed slightlyDarkened.
+            ] ifFalse:[
+                colorUsed := colorUsed slightlyLigntened.
+            ].    
+        ].
+        
         exceptionInfoLabel
             label:(resources
                     string:'%1 in process %2 [%3]%4'
-                    with:(lines first withColor:#red)
+                    with:(lines first withColor:colorUsed)
                     with:(processNameOrNil ? '')
                     with:(pidOrNil ? '')
                     with:(osPidString ? ''))