diff --git a/src/eqf.c b/src/eqf.c
index d9032a0..c621b13 100644
--- a/src/eqf.c
+++ b/src/eqf.c
@@ -219,7 +219,7 @@ arg2_small:
     register float f1, f2;
     N_MakeFloat(arg1, f1, arg2);
     N_MakeFloat(arg2, f2, arg2);
-    if ((f1 + 0.0) == (f2 + 0.0))
+    if ((f1 + 0.0f) == (f2 + 0.0f))
       return (ATOM_T);
     else
       return (NIL);
diff --git a/src/ubf2.c b/src/ubf2.c
index b5902a2..6a6bf80 100644
--- a/src/ubf2.c
+++ b/src/ubf2.c
@@ -66,7 +66,7 @@ LispPTR N_OP_ubfloat2(int a2, int a1, int alpha) {
         return (a1);
       else
         return (a2);
-    case 8: /* rem */ ans = fmod(arg2, arg1); break;
+    case 8: /* rem */ ans = fmodf(arg2, arg1); break;
     default: ERROR_EXIT(a1);
   } /* end switch */