--- a/Tools__LintHighlighter.st	Fri Jan 27 15:01:09 2012 +0100
+++ b/Tools__LintHighlighter.st	Fri Jan 27 22:18:06 2012 +0100
@@ -62,7 +62,7 @@
     emphasisWarning isNil ifTrue:[
         emphasisWarning := Array 
             with: #underwave 
-            with: #underlineColor -> Color yellow darker                  
+            with: #underlineColor -> (Color redByte: 224 greenByte: 200 blueByte: 45)                  
     ].
     ^emphasisWarning
 
@@ -141,7 +141,11 @@
     rule result isParseTreeEnvironment ifTrue:[
         formattingMethod ifTrue:[
             | interval |
-            interval := rule result selectionIntervalFor: string.
+            [
+                interval := rule result selectionIntervalFor: string.
+            ] on: Error do:[
+                interval := nil.
+            ].
             interval notNil ifTrue:[
                 text emphasisFrom: interval first to: interval last 
                          add: emphasis.            
@@ -174,9 +178,9 @@
 !LintHighlighter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintHighlighter.st,v 1.2 2011-08-05 13:06:38 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintHighlighter.st,v 1.3 2012-01-27 21:18:06 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintHighlighter.st,v 1.2 2011-08-05 13:06:38 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintHighlighter.st,v 1.3 2012-01-27 21:18:06 vrany Exp $'
 ! !