--- a/Tools__LintHighlighter.st	Wed May 04 21:08:27 2016 +0200
+++ b/Tools__LintHighlighter.st	Wed May 04 21:14:56 2016 +0200
@@ -226,8 +226,8 @@
             rule resultSelectionIntervalsForSource: string tree: tree in: class do: [:interval|
                 interval notEmptyOrNil ifTrue:[
                     (interval first == 1 and:[interval last == text size]) ifTrue:[
-                        (OperatingSystem getLoginName = 'jv') ifTrue:[
-                            Transcript showCR:'>> no meaningful selection interval for ' , rule printString.
+                        self debuggingCodeFor:#jv is:[
+                             Transcript showCR:'>> no meaningful selection interval for ' , rule printString.
                         ].
                     ] ifFalse:[
                         self mark: text from: interval first to: interval last for: rule.