diff --git a/src/core/CCArrayLabels.ml b/src/core/CCArrayLabels.ml
index deaf273a..f100fe0e 100644
--- a/src/core/CCArrayLabels.ml
+++ b/src/core/CCArrayLabels.ml
@@ -1,6 +1,9 @@
 
 (* This file is free software, part of containers. See file "license" for more details. *)
 
+(* fallback function *)
+external make_float : int -> float array = "caml_make_float_vect"
+
 include CCArray
 
 (*$inject
diff --git a/src/core/CCArrayLabels.mli b/src/core/CCArrayLabels.mli
index 653ef5e6..feac444a 100644
--- a/src/core/CCArrayLabels.mli
+++ b/src/core/CCArrayLabels.mli
@@ -13,6 +13,10 @@ type 'a printer = Format.formatter -> 'a -> unit
 
 (** {2 Arrays} *)
 
+(**/**)
+external make_float : int -> float array = "caml_make_float_vect" (* compat *)
+(**/**)
+
 include module type of struct include ArrayLabels end
 
 type 'a t = 'a array
@@ -310,3 +314,4 @@ val sort_generic :
 (** Sort the array, without allocating (eats stack space though). Performance
     might be lower than {!Array.sort}.
     @since 0.14 *)
+