--- a/DebugView.st	Sun Oct 30 14:23:06 2016 +0100
+++ b/DebugView.st	Sun Oct 30 14:34:57 2016 +0100
@@ -3791,15 +3791,7 @@
         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.
-            ].    
-        ].
+        colorUsed := colorUsed contrastingColorFor:exceptionInfoLabel backgroundColor.                
         
         exceptionInfoLabel
             label:(resources