--- ocaml-event-0.5.0/event_stubs.c	2007-04-12 13:19:28.000000000 +0300
+++ ocaml-event-0.5.0/event_stubs.c	2007-04-12 13:19:28.000000000 +0300
@@ -176,7 +176,7 @@
 {
   CAMLparam1(vloop_flag);
 
-  if((-1 == event_loop(Int_val(vloop_flag)))) {
+  if((-1 == event_loop(Int_val(vloop_flag) + 1))) {
     uerror("event_dispatch", vloop_flag);
   }