--- a/Scanner.st	Sun Oct 20 01:05:27 2013 +0200
+++ b/Scanner.st	Tue Oct 22 01:30:33 2013 +0200
@@ -806,6 +806,12 @@
     "Created: 20.4.1996 / 19:59:58 / cg"
 !
 
+tokenEndPosition
+    ^ tokenPosition + tokenValue size - 1.
+
+    "Created: / 22-10-2013 / 00:30:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 tokenLineNr
     ^ tokenLineNr
 !
@@ -818,6 +824,12 @@
     ^ tokenPosition
 !
 
+tokenStartPosition
+    ^ tokenPosition
+
+    "Created: / 22-10-2013 / 00:29:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 tokenType
     ^ tokenType
 !
@@ -3646,11 +3658,11 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.305 2013-09-24 20:01:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.306 2013-10-21 23:30:33 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.305 2013-09-24 20:01:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.306 2013-10-21 23:30:33 vrany Exp $'
 ! !