diff --git a/src/lib/gmlmip_stub.c b/src/lib/gmlmip_stub.c
index 25f8c9d3f66073509c57d20a0b8073603900af51..996f38ed19c2faacd7a68cee3baf908be31aa3c1 100644
--- a/src/lib/gmlmip_stub.c
+++ b/src/lib/gmlmip_stub.c
@@ -24,6 +24,7 @@ extern "C" {
 
 template<class T>
 value set2CamlList(const set<T>& vec, value (*f)(const T&)) {
+    CAMLparam0();
     CAMLlocal2( cli, cons );
     cli = Val_emptylist;
 
@@ -45,6 +46,7 @@ value set2CamlList(const set<T>& vec, value (*f)(const T&)) {
 
 
 static CAMLprim value pair2caml(const int& t) {
+    CAMLparam0();
     CAMLlocal1( abc );
     abc = caml_alloc(2, 0);
     bool neg = t < 0;