--- a/SmallSense__SmalltalkLintService.st	Mon May 09 10:07:02 2016 +0200
+++ b/SmallSense__SmalltalkLintService.st	Mon May 09 10:07:06 2016 +0200
@@ -317,51 +317,51 @@
     "/ (codeView sensor hasUserEvent:#process for:self withArguments:nil) ifTrue:[^  self].
 
     (cls notNil and:[cls isObsolete]) ifTrue:[
-	cls isMeta ifTrue:[
-	    cls := (Smalltalk at:cls theNonMetaclass name) class
-	] ifFalse:[
-	    cls := Smalltalk at:cls name
-	].
+        cls isMeta ifTrue:[
+            cls := (Smalltalk at:cls theNonMetaclass name) class
+        ] ifFalse:[
+            cls := Smalltalk at:cls name
+        ].
     ].
 
     "textView" modified ifFalse:[
-	oldCodeList := textView list copy.
-	oldCodeList isEmptyOrNil ifTrue: [ ^ self ].
-	"textView" modified ifFalse:[
-	    oldCodeList isNil ifFalse:[
-		oldCode := oldCodeList asStringWithoutEmphasis.
-		oldCode isEmptyOrNil ifTrue:[ ^ self ].
-		"textView" modified ifFalse:[
-		    Screen currentScreenQuerySignal answer:codeView device
-		    do:[
-			Error handle:[:ex |
-			    | errMsg |
+        oldCodeList := textView list copy.
+        oldCodeList isEmptyOrNil ifTrue: [ ^ self ].
+        "textView" modified ifFalse:[
+            oldCodeList isNil ifFalse:[
+                oldCode := oldCodeList asStringWithoutEmphasis.
+                oldCode isEmptyOrNil ifTrue:[ ^ self ].
+                "textView" modified ifFalse:[
+                    Screen currentScreenQuerySignal answer:codeView device
+                    do:[
+                        Error handle:[:ex |
+                            | errMsg |
 
-			    Debugging == true ifTrue:[
-				Debugging := false.
-				ex pass.
-			    ].
+                            Debugging == true ifTrue:[
+                                Debugging := false.
+                                ex pass.
+                            ].
 
 "/                            Transcript topView raiseDeiconified.
 "/                            Transcript showCR:'ParseError: ', ex description.
-			    errMsg := ex description asStringCollection first asString.
-			    self showInfo:(('Smalltalk Lint: ',errMsg) colorizeAllWith:Color red).
-			] do:[
-			    env := (SmallSense::SmalltalkUnacceptedMethodEnvironment onClass:cls methodSource: oldCode).
-			    rules rejectRules:[:rule | SmalltalkChecker isRuleDisabled:rule class].
+                            errMsg := ex description asStringCollection first asString.
+                            self showInfo:(('Smalltalk Lint: ',errMsg) withColor:Color red).
+                        ] do:[
+                            env := (SmallSense::SmalltalkUnacceptedMethodEnvironment onClass:cls methodSource: oldCode).
+                            rules rejectRules:[:rule | SmalltalkChecker isRuleDisabled:rule class].
 "/ Transcript showCR:rules.
 "/ Transcript showCR:rules rules.
-			    SmalltalkChecker runRule: rules onEnvironment: env
-			].
-			delayed ifTrue:[
-			    codeView sensor pushUserEvent:#rehighlight: for:self withArgument: true.
-			] ifFalse:[
-			    self rehighlight: true.
-			]
-		    ]
-		]
-	    ]
-	]
+                            SmalltalkChecker runRule: rules onEnvironment: env
+                        ].
+                        delayed ifTrue:[
+                            codeView sensor pushUserEvent:#rehighlight: for:self withArgument: true.
+                        ] ifFalse:[
+                            self rehighlight: true.
+                        ]
+                    ]
+                ]
+            ]
+        ]
     ]
 
     "Created: / 24-01-2012 / 12:44:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"