diff --git a/Lib/ocaml/cstring.i b/Lib/ocaml/cstring.i
index 0d6aa4b69..f1190ad5c 100644
--- a/Lib/ocaml/cstring.i
+++ b/Lib/ocaml/cstring.i
@@ -108,7 +108,7 @@
 %define %cstring_mutable(TYPEMAP,...)
 %typemap(in) TYPEMAP {
    char *t = String_val($input);
-   int   n = string_length($input);
+   int   n = caml_string_length($input);
    $1 = ($1_ltype) t;
 #if #__VA_ARGS__ == ""
 #ifdef __cplusplus
diff --git a/Lib/ocaml/director.swg b/Lib/ocaml/director.swg
index 86b2cd4e2..eb91aaf4b 100644
--- a/Lib/ocaml/director.swg
+++ b/Lib/ocaml/director.swg
@@ -74,12 +74,12 @@ namespace Swig {
     public:
       /* wrap a ocaml object. */
       Director(CAML_VALUE self) : swig_self(self), swig_disown_flag(false) {
-        register_global_root(&swig_self);
+        caml_register_global_root(&swig_self);
       }
 
       /* discard our reference at destruction */
       virtual ~Director() {
-        remove_global_root(&swig_self);
+        caml_remove_global_root(&swig_self);
         swig_disown();
         // Disown is safe here because we're just divorcing a reference that points to us.
       }
diff --git a/Lib/ocaml/ocaml.swg b/Lib/ocaml/ocaml.swg
index d0007f856..d0a5819bb 100644
--- a/Lib/ocaml/ocaml.swg
+++ b/Lib/ocaml/ocaml.swg
@@ -507,7 +507,7 @@ extern "C" {
     SWIGINTERN int caml_string_len( CAML_VALUE v ) {
 	switch( SWIG_Tag_val(v) ) {
 	case C_string:
-	    return string_length(SWIG_Field(v,0));
+	    return caml_string_length(SWIG_Field(v,0));
 	default:
 	    return strlen((char *)caml_ptr_val(v,0));
 	}
diff --git a/Lib/ocaml/ocamldec.swg b/Lib/ocaml/ocamldec.swg
index aea0ec9e5..f99624373 100644
--- a/Lib/ocaml/ocamldec.swg
+++ b/Lib/ocaml/ocamldec.swg
@@ -16,6 +16,7 @@ SWIGEXT {
 #endif
 #define value caml_value_t
 #define CAML_VALUE caml_value_t
+#define CAML_NAME_SPACE
 #include <caml/alloc.h>
 #include <caml/custom.h>
 #include <caml/mlvalues.h>