--- a/RegressionTests__IEEEFloatTest.st	Tue Dec 03 23:31:17 2019 +0100
+++ b/RegressionTests__IEEEFloatTest.st	Tue Dec 03 23:36:19 2019 +0100
@@ -297,6 +297,13 @@
 test05_Comparing
     |convArray check v1 v2 v1b|
 
+    self assert:( 0.0 = -0.0).
+    self assert:( 0.0 asIEEEFloat = -0.0 asIEEEFloat).
+    self assert:( 0.0 asIEEEFloat = 0.0).
+    self assert:( 0.0 asIEEEFloat = -0.0).
+    self assert:( -0.0 asIEEEFloat = 0.0).
+    self assert:( -0.0 asIEEEFloat = -0.0).
+
     self assert:( 1.0 asIEEEFloat = 1.0).
     self assert:( 1.0 asIEEEFloat = 1.0 asIEEEFloat).
     self assert:( 1.0 asIEEEFloat = 1.0 asShortFloat).
@@ -539,7 +546,13 @@
 !
 
 test07_Truncation
-    |check|
+    |t check|
+
+    t := 0.0 asIEEEFloat coerce:0.
+    self assert:(t isZero).
+    self assert:(t = 0.0 asIEEEFloat).
+    self assert:(t = 0.0).
+
 
     check := [:num |
         |nIEEE|