--- a/Tools__LintHighlighter.st	Sun Mar 02 23:47:45 2014 +0100
+++ b/Tools__LintHighlighter.st	Sun Mar 02 23:51:00 2014 +0100
@@ -129,7 +129,7 @@
 formatClassDefinition:source in:class elementsInto: elements
 
     formattingMethod := false.
-    ^ self format: source
+    ^ self format: source asText
 
     "Created: / 04-08-2011 / 23:44:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
@@ -170,10 +170,11 @@
 
 format: text
 
-    | tree |
+    | tree t|
     tree := RBParser parseMethod: text string onError:[:error :pos| ^ text ].
-    self format: text tree: tree.
-    ^text
+    t := text asText.
+    self format: t tree: tree.
+    ^t
 
     "Created: / 04-08-2011 / 23:51:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
@@ -305,10 +306,10 @@
 !LintHighlighter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintHighlighter.st,v 1.7 2014-02-26 18:00:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintHighlighter.st,v 1.8 2014-03-02 22:51:00 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintHighlighter.st,v 1.7 2014-02-26 18:00:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__LintHighlighter.st,v 1.8 2014-03-02 22:51:00 cg Exp $'
 ! !