--- a/Scanner.st	Tue Nov 06 12:15:16 2018 +0100
+++ b/Scanner.st	Tue Nov 20 17:07:53 2018 +0100
@@ -3075,10 +3075,14 @@
             "/ due to a strange overflow, we might get a Nan, although we
             "/ are actually still in the float range.
             "/ happens eg. for 1.7976931348623157e+308
+            nextChar := source peek.
             value isInfinite ifTrue:[
-                value := Float fastFromString:source collection at:pos1.
+                PrimitiveFailure handle:[:ex |
+                    "/ self halt.
+                ] do:[
+                    value := Float fastFromString:source collection at:pos1.
+                ].    
             ].    
-            nextChar := source peek.
         ].
     ] ifFalse:[
         value isLimitedPrecisionReal ifTrue:[
@@ -3128,7 +3132,7 @@
     ^ tokenType
 
     "Modified: / 15-06-2017 / 11:07:52 / cg"
-    "Modified: / 27-10-2018 / 09:05:23 / Claus Gittinger"
+    "Modified: / 20-11-2018 / 17:06:15 / Claus Gittinger"
 !
 
 nextPrimitive