let of_native_string of_native_substring s =
match of_native_substring s ~offset:0 ~length:(String.length s) with
| `Ok o -> return o
| `Error (`wrong_char_at c) -> fail (`wrong_char_at c)
| `Error `out_of_bounds -> (* There is a bug ! *) assert false