diff --git a/src/CHANGELOG b/src/CHANGELOG
index 7a2ab3c5d..c28ae4037 100644
--- a/src/CHANGELOG
+++ b/src/CHANGELOG
@@ -17,6 +17,8 @@ ECL 9.6.2:
 
  - The constants in cl_core are now used in compiled code.
 
+ - (MINUSP -0.0) => NIL
+
 * Characters:
 
  - ECL now uses ISO Latin names for the lowest part of the character set.
diff --git a/src/c/num_pred.d b/src/c/num_pred.d
index 9b64f2da1..134174d66 100644
--- a/src/c/num_pred.d
+++ b/src/c/num_pred.d
@@ -101,16 +101,16 @@ ecl_minusp(cl_object x)
 
 #ifdef ECL_SHORT_FLOAT
 	case t_shortfloat:
-		return signbit(ecl_short_float(x));
+		return ecl_short_float(x) < 0;
 #endif
 	case t_singlefloat:
-		return signbit(sf(x));
+		return sf(x) < 0;
 
 	case t_doublefloat:
-		return signbit(df(x));
+		return df(x) < 0;
 #ifdef ECL_LONG_FLOAT
 	case t_longfloat:
-		return signbit(ecl_long_float(x));
+		return ecl_long_float(x) < 0;
 #endif
 	default:
 		FEtype_error_real(x);