--- a/Scanner.st	Tue Nov 26 11:47:04 2002 +0100
+++ b/Scanner.st	Tue Nov 26 13:03:26 2002 +0100
@@ -1131,7 +1131,7 @@
     self initializeFor:aStringOrStream.
     oldPos := source position.
     self nextToken.
-    (tokenType == #Integer or:[tokenType == #Float]) ifTrue:[
+    tokenValue isNumber ifTrue:[
         "/ must keep stream positioned correctly
         "/ (undo lookahead)
         peekChar notNil ifTrue:[
@@ -2495,7 +2495,7 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.155 2002-11-26 09:51:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.156 2002-11-26 12:03:26 cg Exp $'
 ! !
 
 Scanner initialize!