--- a/Scanner.st	Fri Dec 21 18:33:56 2001 +0100
+++ b/Scanner.st	Mon Jan 07 19:04:30 2002 +0100
@@ -651,6 +651,12 @@
 
 tokenType
     ^ tokenType
+!
+
+tokenValue
+    ^ tokenValue
+
+    "Created: / 21.12.2001 / 22:38:08 / cg"
 ! !
 
 !Scanner methodsFor:'directives'!
@@ -2234,6 +2240,6 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.133 2001-12-21 17:33:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.134 2002-01-07 18:04:30 cg Exp $'
 ! !
 Scanner initialize!