--- a/Scanner.st	Tue Mar 31 14:00:31 1998 +0200
+++ b/Scanner.st	Tue Mar 31 18:36:35 1998 +0200
@@ -587,6 +587,11 @@
 markCommentFrom:pos1 to:pos2
 
     "Created: / 31.3.1998 / 13:34:45 / cg"
+!
+
+markStringFrom:pos1 to:pos2
+
+    "Created: / 31.3.1998 / 16:37:18 / cg"
 ! !
 
 !Scanner methodsFor:'error handling'!
@@ -1417,6 +1422,7 @@
         nextChar isNil ifTrue:[
             self syntaxError:'unexpected end-of-input in String'
                     position:pos to:(source position - 1).
+            self markStringFrom:pos to:source position-1.
             token := nil.
             tokenType := #EOF.
             ^ tokenType
@@ -1441,11 +1447,13 @@
             nextChar := source next
         ]
     ].
+    self markStringFrom:pos to:source position-1.
+
     tokenValue := token := string copyTo:(index - 1).
     tokenType := #String.
     ^ tokenType
 
-    "Modified: / 5.3.1998 / 02:55:01 / cg"
+    "Modified: / 31.3.1998 / 17:33:14 / cg"
 !
 
 nextToken
@@ -1690,6 +1698,6 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.76 1998-03-31 11:57:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.77 1998-03-31 16:36:35 cg Exp $'
 ! !
 Scanner initialize!