--- a/Scanner.st	Tue Aug 29 19:18:38 2006 +0200
+++ b/Scanner.st	Tue Aug 29 19:20:08 2006 +0200
@@ -1276,6 +1276,21 @@
     "Created: / 13.5.1998 / 16:45:13 / cg"
 !
 
+parseError:aMessage line:lNr
+    "report an error"
+
+    |position|
+
+    tokenLineNr := lNr.
+    (requestor notNil and:[requestor isTextView]) ifTrue:[
+        position := requestor characterPositionOfLine:lNr col:1.
+        ^ self parseError:aMessage position:position to:nil
+    ].
+    ^ self parseError:aMessage position:nil to:nil
+
+    "Created: / 13.5.1998 / 16:45:05 / cg"
+!
+
 parseError:aMessage position:position
     "report an error"
 
@@ -3094,7 +3109,7 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.222 2006-08-22 12:42:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.223 2006-08-29 17:20:08 cg Exp $'
 ! !
 
 Scanner initialize!