--- a/Scanner.st	Thu Oct 26 11:24:04 2000 +0200
+++ b/Scanner.st	Thu Oct 26 16:26:02 2000 +0200
@@ -1269,18 +1269,18 @@
 nextCharacter
     "a $ has been read - return a character token"
 
-    |nextChar|
+    |nextChar t|
 
     source next.
     nextChar := source next.
     nextChar notNil ifTrue:[
-        tokenValue := token := nextChar.
+        t := nextChar.
         tokenType := #Character.
-"/        self markConstantFrom:tokenPosition to:(tokenPosition + 1).
     ] ifFalse:[
-        tokenValue := token := nil.
+        t := nil.
         tokenType := #EOF
     ].
+    tokenValue := token := t.
     ^ tokenType
 
     "Modified: / 13.5.1998 / 15:09:50 / cg"
@@ -1950,8 +1950,8 @@
                               '(' , v printString , ')')
                     position:tokenPosition to:tokenPosition.
             source next.
-            tokenName := nil.
-            tokenType := token := #Error.
+            tokenName := token := nil.
+            tokenType := #Error.
             ^ #Error
         ]
     ].
@@ -2117,6 +2117,6 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.122 2000-10-26 09:24:04 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.123 2000-10-26 14:25:30 cg Exp $'
 ! !
 Scanner initialize!