--- a/Scanner.st	Mon Jan 07 19:04:30 2002 +0100
+++ b/Scanner.st	Tue Jan 08 10:35:14 2002 +0100
@@ -1353,21 +1353,21 @@
 nextCharacter
     "a $ has been read - return a character token"
 
-    |nextChar t|
+    |nextChar|
 
     source next.
     nextChar := source next.
     nextChar notNil ifTrue:[
-        t := nextChar.
-        tokenType := #Character.
+	tokenValue := token := nextChar.
+	tokenType := #Character.
     ] ifFalse:[
-        t := nil.
-        tokenType := #EOF
+	tokenValue := token := nil.
+	tokenType := #EOF
     ].
-    tokenValue := token := t.
     ^ tokenType
 
     "Modified: / 13.5.1998 / 15:09:50 / cg"
+
 !
 
 nextColonOrAssign
@@ -2240,6 +2240,6 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.134 2002-01-07 18:04:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.135 2002-01-08 09:35:14 cg Exp $'
 ! !
 Scanner initialize!