diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -1,10 +1,10 @@
-CGrep: a context-aware grep for source codes
+CGrep: a context-aware grep for source codes [![Hackage](https://img.shields.io/hackage/v/cgrep.svg?style=flat)](https://hackage.haskell.org/package/cgrep)
 ============================================
 
 Usage
 -----
 
-Cgrep 6.4.6 Usage: cgrep [OPTION] [PATTERN] files...
+Cgrep 6.4.7 Usage: cgrep [OPTION] [PATTERN] files...
 
 cgrep [OPTIONS] [ITEM]
 
diff --git a/cgrep.cabal b/cgrep.cabal
--- a/cgrep.cabal
+++ b/cgrep.cabal
@@ -1,6 +1,6 @@
 Name:                cgrep
 Description:         Cgrep: a context-aware grep for source codes
-Version:             6.4.6
+Version:             6.4.7
 Synopsis:            Command line tool
 Homepage:            http://awgn.github.io/cgrep/
 License:             GPL-2
diff --git a/src/CGrep/Semantic/Cpp/Token.hs b/src/CGrep/Semantic/Cpp/Token.hs
--- a/src/CGrep/Semantic/Cpp/Token.hs
+++ b/src/CGrep/Semantic/Cpp/Token.hs
@@ -242,12 +242,11 @@
 getTokenNumber _ _ = undefined
 
 
-validHexSet, validOctSet, validDecSet, validFloatSet :: HS.HashSet Char
+validHexSet, validOctSet, validDecSet :: HS.HashSet Char
 
-validHexSet   = HS.fromList "0123456789abcdefABCDEFxXuUlL"
-validOctSet   = HS.fromList "01234567uUlL"
-validDecSet   = HS.fromList "0123456789uUlL"
-validFloatSet = HS.fromList "0123456789"
+validHexSet   = HS.fromList "0123456789abcdefABCDEFxX"
+validOctSet   = HS.fromList "01234567"
+validDecSet   = HS.fromList "0123456789"
 
 data NumberState = NumberNothing | NumberOHF | NumberDec | NumberOct | NumberHex | NumberMayBeFloat | NumberFloat | NumberExp
                     deriving (Show,Eq,Enum)
@@ -287,7 +286,7 @@
                                                 | otherwise                  -> ""
 
     |  state == NumberFloat = case () of _
-                                                | x `HS.member` validFloatSet -> x : getNumber xs NumberFloat
+                                                | x `HS.member` validDecSet -> x : getNumber xs NumberFloat
                                                 | x == 'e' || x == 'E'       -> x : getNumber xs NumberExp
                                                 | otherwise                  -> ""
 
diff --git a/src/Config.hs b/src/Config.hs
--- a/src/Config.hs
+++ b/src/Config.hs
@@ -31,7 +31,7 @@
 cgreprc = "cgreprc"
 
 version :: String
-version = "6.4.6"
+version = "6.4.7"
 
 data Config = Config
               {