diff --git a/src/c/num_comp.d b/src/c/num_comp.d
index 60b7ee046..b6e330efa 100644
--- a/src/c/num_comp.d
+++ b/src/c/num_comp.d
@@ -45,7 +45,7 @@ number_equalp(cl_object x, cl_object y)
 		case t_ratio:
 			return 0;
 		case t_shortfloat:
-			return fix(x) == sf(y);
+			return fix(x) == (double)sf(y);
 		case t_longfloat:
 			return fix(x) == lf(y);
 		case t_complex: