diff --git a/sw/lib/ocaml/ivy/cglibivy.c b/sw/lib/ocaml/ivy/cglibivy.c
index d5d837bd2e..228246d85f 100644
--- a/sw/lib/ocaml/ivy/cglibivy.c
+++ b/sw/lib/ocaml/ivy/cglibivy.c
@@ -38,6 +38,6 @@ value ivy_GtkchannelSetUp(value fd, value closure_name)
 
 value ivy_GtkchannelClose(value ch)
 {
-  IvyChannelRemove((Channel)Int_val(ch));
+  IvyChannelRemove((Channel)Long_val(ch));
   return Val_unit;
 }
diff --git a/sw/lib/ocaml/ivy/civy.c b/sw/lib/ocaml/ivy/civy.c
index f4affaf10f..aa0b881ca6 100644
--- a/sw/lib/ocaml/ivy/civy.c
+++ b/sw/lib/ocaml/ivy/civy.c
@@ -54,29 +54,29 @@ void ClosureCallback(IvyClientPtr app, void *closure, int argc, char **argv)
   /* Copie de argv dans t avec ajout d'un pointeur nul a la fin */
   for(i=0; i < argc; i++) t[i] = argv[i];
   t[argc] = (char*)0L;
-  callback2(*(value*)closure, Val_int((int)app), copy_string_array((char const **)t));
+  callback2(*(value*)closure, Val_long(app), copy_string_array((char const **)t));
 }
 
 value ivy_bindMsg(value cb_name, value regexp)
 {
   value * closure = caml_named_value(String_val(cb_name));
   MsgRcvPtr id = IvyBindMsg(ClosureCallback, (void*)closure, String_val(regexp));
-  return Val_int((int)id);
+  return Val_long(id);
 }
 
 value ivy_unbindMsg(value id)
 {
-  IvyUnbindMsg((MsgRcvPtr)Int_val(id));
+  IvyUnbindMsg((MsgRcvPtr)Long_val(id));
   return Val_unit;
 }
 
 value ivy_name_of_client(value c)
 {
-  return copy_string(IvyGetApplicationName((IvyClientPtr)Int_val(c)));
+  return copy_string(IvyGetApplicationName((IvyClientPtr)Long_val(c)));
 }
 value ivy_host_of_client(value c)
 {
-  return copy_string(IvyGetApplicationHost((IvyClientPtr)Int_val(c)));
+  return copy_string(IvyGetApplicationHost((IvyClientPtr)Long_val(c)));	
 }
 
 void cb_delete_channel(void *delete_read)
diff --git a/sw/lib/ocaml/ivy/civyloop.c b/sw/lib/ocaml/ivy/civyloop.c
index 42955ba349..529e5dae1f 100644
--- a/sw/lib/ocaml/ivy/civyloop.c
+++ b/sw/lib/ocaml/ivy/civyloop.c
@@ -25,7 +25,7 @@ value ivy_mainLoop(value unit)
 void timer_cb(TimerId id, void *data, unsigned long delta)
 {
   value closure = *(value*)data;
-  callback(closure, Val_int((int) id));
+  callback(closure, Val_long((int) id));	
 }
 
 value ivy_timerRepeatafter(value nb_ticks,value delay, value closure_name)
@@ -58,13 +58,13 @@ value ivy_channelSetUp(value fd, value closure_name)
 
 value ivy_timerRemove(value t)
 {
-  TimerRemove((TimerId)Int_val(t));
+  TimerRemove((TimerId)Long_val(t));
   return Val_unit;
 }
 
 
 value ivy_channelClose(value ch)
 {
-  IvyChannelRemove((Channel)Int_val(ch));
+  IvyChannelRemove((Channel)Long_val(ch));
   return Val_unit;
 }