--- a/Scanner.st	Fri Dec 21 17:29:42 2001 +0100
+++ b/Scanner.st	Fri Dec 21 18:33:56 2001 +0100
@@ -1205,6 +1205,24 @@
     "Modified: / 26.5.1999 / 12:02:16 / stefan"
 ! !
 
+!Scanner methodsFor:'parser interface'!
+
+errorFlag:flagArg
+    errorFlag := flagArg
+!
+
+token
+    ^ token
+!
+
+tokenLineNr:lineNumberArg
+    tokenLineNr := lineNumberArg
+!
+
+tokenPosition:positionArg
+    tokenPosition := positionArg
+! !
+
 !Scanner methodsFor:'private'!
 
 backupPosition
@@ -2216,6 +2234,6 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.132 2001-12-21 16:29:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.133 2001-12-21 17:33:56 cg Exp $'
 ! !
 Scanner initialize!