--- a/LargeFloat.st	Tue Dec 03 14:44:05 2019 +0100
+++ b/LargeFloat.st	Tue Dec 03 14:44:25 2019 +0100
@@ -320,7 +320,7 @@
 !LargeFloat class methodsFor:'class initialization'!
 
 initialize
-    NaN := self mantissa:0 exponent:999.
+    NaN := self mantissa:0 exponent:9999999.
     PositiveInfinity := self mantissa:0 exponent:1.
     NegativeInfinity := self mantissa:0 exponent:-1.
     One := self mantissa:1 exponent:0.
@@ -2763,7 +2763,7 @@
 !
 
 isZero
-	^mantissa isZero
+    ^ mantissa isZero and:[biasedExponent isZero]
 !
 
 negative