--- a/Scanner.st	Tue Oct 22 01:30:33 2013 +0200
+++ b/Scanner.st	Tue Oct 22 04:24:47 2013 +0200
@@ -807,9 +807,10 @@
 !
 
 tokenEndPosition
-    ^ tokenPosition + tokenValue size - 1.
+    ^ tokenPosition + tokenName size - 1.
 
     "Created: / 22-10-2013 / 00:30:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 22-10-2013 / 03:11:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 tokenLineNr
@@ -3658,11 +3659,11 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.306 2013-10-21 23:30:33 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.307 2013-10-22 02:24:47 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.306 2013-10-21 23:30:33 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.307 2013-10-22 02:24:47 vrany Exp $'
 ! !