--- a/Scanner.st	Tue Jan 08 10:36:50 2002 +0100
+++ b/Scanner.st	Tue Jan 08 10:39:46 2002 +0100
@@ -631,6 +631,11 @@
     "Modified: 23.5.1997 / 12:14:49 / cg"
 !
 
+sourcePosition
+    ^ source position
+
+!
+
 sourceStream
     ^ source
 
@@ -1199,6 +1204,11 @@
     self source:aStringOrStream.
 !
 
+setSource:newSource
+    source := newSource
+
+!
+
 source:aStringOrStream
     "prepare for reading from aStringOrStream"
 
@@ -2245,6 +2255,6 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.137 2002-01-08 09:36:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.138 2002-01-08 09:39:46 cg Exp $'
 ! !
 Scanner initialize!