--- a/Tools__LintHighlighter.st	Mon Dec 15 21:28:45 2014 +0100
+++ b/Tools__LintHighlighter.st	Mon Dec 15 21:53:50 2014 +0100
@@ -76,10 +76,10 @@
 
     emphasisError isNil ifTrue:[
         warnColor := Color red.
-        emphasisError := Array 
-            "/with: #backgroundColor -> warnColor lightened lightened 
-            with: #underwave 
-            with: #underlineColor -> warnColor                    
+        emphasisError := Array
+            "/with: #backgroundColor -> warnColor lightened lightened
+            with: #underwave
+            with: #underlineColor -> warnColor
     ].
     ^emphasisError
 
@@ -93,10 +93,10 @@
 
     emphasisInformation isNil ifTrue:[
         warnColor := Color blue lighter.
-        emphasisInformation := Array 
+        emphasisInformation := Array
             "/with: #backgroundColor -> warnColor lightened lightened
-            with: #underwave 
-            with: #underlineColor -> warnColor                    
+            with: #underwave
+            with: #underlineColor -> warnColor
     ].
     ^emphasisInformation
 
@@ -120,10 +120,10 @@
 
     emphasisWarning isNil ifTrue:[
         warnColor := (Color redByte: 224 greenByte: 200 blueByte: 45).
-        emphasisWarning := Array 
+        emphasisWarning := Array
             "/with: #backgroundColor -> warnColor lightened lightened
-            with: #underwave 
-            with: #underlineColor -> warnColor                  
+            with: #underwave
+            with: #underlineColor -> warnColor
     ].
     ^emphasisWarning
 
@@ -246,14 +246,14 @@
         searches do:[:search|
             | i |
             i := 1.
-            [ 
+            [
                 i := string findString: search startingAt: i.
                 i ~~ 0
             ] whileTrue:[
                 self mark: text from: i to: (i + search size - 1) for: rule.
                 i := i + search size + 1.
             ]
-            
+
 
         ]
     ]
@@ -287,9 +287,9 @@
     | emphasis |
 
     emphasis := self emphasisForSeverity: rule severity.
-    text emphasisFrom: start to: end add: emphasis.     
-    (rulesToIntervalsMap at: rule ifAbsentPut: Set new)
-        add (start to: end)
+    text emphasisFrom: start to: end add: emphasis.
+    (rulesToIntervalsMap at: rule ifAbsentPut: [ Set new ])
+        add: (start to: end)
 
     "Created: / 30-01-2012 / 15:30:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 15-12-2014 / 15:52:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -298,10 +298,10 @@
 !LintHighlighter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintHighlighter.st,v 1.10 2014-12-15 20:27:28 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintHighlighter.st,v 1.11 2014-12-15 20:53:50 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintHighlighter.st,v 1.10 2014-12-15 20:27:28 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintHighlighter.st,v 1.11 2014-12-15 20:53:50 vrany Exp $'
 ! !