--- a/Scanner.st	Mon Nov 11 22:54:08 1996 +0100
+++ b/Scanner.st	Tue Nov 12 13:18:57 1996 +0100
@@ -12,7 +12,7 @@
 
 Object subclass:#Scanner
 	instanceVariableNames:'source lineNr collectedSource token tokenType tokenPosition
-		tokenValue tokenName tokenLineNr tokenRadix hereChar peekChar
+		tokenValue tokenName tokenLineNr hereChar peekChar
 		peekChar2 requestor exitBlock errorFlag ignoreErrors
 		ignoreWarnings saveComments currentComments warnSTXSpecialComment
 		warnUnderscoreInIdentifier warnOldStyleAssignment
@@ -870,7 +870,7 @@
 !
 
 nextNumber
-    |nextChar value s|
+    |nextChar value s tokenRadix|
 
     tokenRadix := 10.
     value := Integer readFrom:source radix:tokenRadix.
@@ -1228,6 +1228,6 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.54 1996-11-08 17:55:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.55 1996-11-12 12:18:57 cg Exp $'
 ! !
 Scanner initialize!