diff --git a/boot/ocamlc b/boot/ocamlc
index c337f4012..0a51e76fd 100755
Binary files a/boot/ocamlc and b/boot/ocamlc differ
diff --git a/boot/ocamllex b/boot/ocamllex
index ea30e37eb..f3c9c7a67 100755
Binary files a/boot/ocamllex and b/boot/ocamllex differ
diff --git a/runtime/intern.c b/runtime/intern.c
index 5f189bacf..651c5ab57 100644
--- a/runtime/intern.c
+++ b/runtime/intern.c
@@ -868,11 +868,6 @@ CAMLexport value caml_input_val_from_bytes(value str, intnat ofs)
   CAMLreturn (intern_end(obj, h.whsize));
 }
 
-CAMLprim value caml_input_value_from_string(value str, value ofs)
-{
-  return caml_input_val_from_bytes(str, Long_val(ofs));
-}
-
 CAMLprim value caml_input_value_from_bytes(value str, value ofs)
 {
   return caml_input_val_from_bytes(str, Long_val(ofs));
diff --git a/runtime/io.c b/runtime/io.c
index 90a1aa64a..1db7ef0f7 100644
--- a/runtime/io.c
+++ b/runtime/io.c
@@ -601,19 +601,6 @@ CAMLprim value caml_ml_set_binary_mode(value vchannel, value mode)
    file descriptors that may be closed.
 */
 
-CAMLprim value caml_ml_flush_partial(value vchannel)
-{
-  CAMLparam1 (vchannel);
-  struct channel * channel = Channel(vchannel);
-  int res;
-
-  if (channel->fd == -1) CAMLreturn(Val_true);
-  Lock(channel);
-  res = caml_flush_partial(channel);
-  Unlock(channel);
-  CAMLreturn (Val_bool(res));
-}
-
 CAMLprim value caml_ml_flush(value vchannel)
 {
   CAMLparam1 (vchannel);
@@ -648,19 +635,6 @@ CAMLprim value caml_ml_output_int(value vchannel, value w)
   CAMLreturn (Val_unit);
 }
 
-CAMLprim value caml_ml_output_partial(value vchannel, value buff, value start,
-                                      value length)
-{
-  CAMLparam4 (vchannel, buff, start, length);
-  struct channel * channel = Channel(vchannel);
-  int res;
-
-  Lock(channel);
-  res = caml_putblock(channel, &Byte(buff, Long_val(start)), Long_val(length));
-  Unlock(channel);
-  CAMLreturn (Val_int(res));
-}
-
 CAMLprim value caml_ml_output_bytes(value vchannel, value buff, value start,
                               value length)
 {
diff --git a/runtime/obj.c b/runtime/obj.c
index 751e4febc..8cb560ddc 100644
--- a/runtime/obj.c
+++ b/runtime/obj.c
@@ -31,12 +31,6 @@
 #include "caml/signals.h"
 #include "caml/spacetime.h"
 
-/* unused since GPR#427 */
-CAMLprim value caml_obj_is_block(value arg)
-{
-  return Val_bool(Is_block(arg));
-}
-
 CAMLprim value caml_obj_tag(value arg)
 {
   if (Is_long (arg)){