diff --git a/src/c/numbers/number_compare.d b/src/c/numbers/number_compare.d
index c8e7e5e5e..88a9d6db7 100644
--- a/src/c/numbers/number_compare.d
+++ b/src/c/numbers/number_compare.d
@@ -81,7 +81,7 @@ ecl_number_compare(cl_object x, cl_object y)
     case t_longfloat:
 #endif
 #ifdef ECL_IEEE_FP
-      if (si_float_infinity_p(y))
+      if (ecl_float_infinity_p(y))
         return(ecl_number_compare(ecl_make_fixnum(0), y));
 #endif
       y = cl_rational(y);
@@ -107,7 +107,7 @@ ecl_number_compare(cl_object x, cl_object y)
     case t_longfloat:
 #endif
 #ifdef ECL_IEEE_FP
-      if (si_float_infinity_p(y))
+      if (ecl_float_infinity_p(y))
         return(ecl_number_compare(ecl_make_fixnum(0), y));
 #endif
       y = cl_rational(y);
@@ -127,7 +127,7 @@ ecl_number_compare(cl_object x, cl_object y)
     case t_bignum:
     case t_ratio:
 #ifdef ECL_IEEE_FP
-      if (si_float_infinity_p(x))
+      if (ecl_float_infinity_p(x))
         return(ecl_number_compare(x, ecl_make_fixnum(0)));
 #endif
       x = cl_rational(x);