diff --git a/src/libraries/utils/floating_point.ml b/src/libraries/utils/floating_point.ml
index 49be26a813e5d081869f30134b0c70c1e8357db9..863dd66e8b1fea843a525477e234ab209ca85f3e 100644
--- a/src/libraries/utils/floating_point.ml
+++ b/src/libraries/utils/floating_point.ml
@@ -452,7 +452,7 @@ let nextafter_aux ~is_f32 fincr fdecr x y =
   then y
   else if isnan x || isnan y then nan
   else if x = 0.0 (* or -0.0 *) then
-    if x < y then min_denormal_float is_f32 else -. (min_denormal_float is_f32)
+    if x < y then min_denormal_float ~is_f32 else -. (min_denormal_float ~is_f32)
     (* the following conditions might be simpler if we had unsigned ints
        (uint32/uint64) *)
   else if x = neg_infinity (* && y = neg_infinity *) then fdecr x