--- a/SmallSense__SmalltalkLintService.st	Thu Oct 16 01:09:42 2014 +0100
+++ b/SmallSense__SmalltalkLintService.st	Thu Oct 16 01:11:33 2014 +0100
@@ -293,17 +293,17 @@
                     Screen currentScreenQuerySignal answer:codeView device
                     do:[
                         Error handle:[:ex |
-                            "/ |errMsg|
+                            | errMsg |
 
                             Debugging == true ifTrue:[
                                 Debugging := false.    
                                 ex pass.
                             ].
 
-                            "/ Transcript topView raiseDeiconified.
-                            "/ Transcript showCR:'ParseError: ', ex description.
-                            "/ errMsg := ex description asStringCollection first asString.
-                            "/ self showInfo:(errMsg colorizeAllWith:Color red).
+"/                            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).
                             SmalltalkChecker runRule: rules onEnvironment: env
@@ -320,7 +320,7 @@
     ]
 
     "Created: / 24-01-2012 / 12:44:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 26-08-2013 / 10:19:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 16-10-2014 / 01:10:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 rehighlight: delayed