kc3-lang/kc3

diff --git a/http/http_event.c b/http/http_event.c
index 3317dc9..5135f16 100644
--- a/http/http_event.c
+++ b/http/http_event.c
@@ -65,6 +65,11 @@ void http_event_callback (int fd, short events, void *tag_tuple)
   tag_clean(&tmp);
 }
 
+s32 http_event_dispatch (void)
+{
+  return event_dispatch();
+}
+
 struct event * http_event_new (s32 fd, const s_list *events,
                                const s_fn *callback, s_tag *arg)
 {
diff --git a/test/http/07_event_echo.kc3 b/test/http/07_event_echo.kc3
index eaea0b8..98304c5 100644
--- a/test/http/07_event_echo.kc3
+++ b/test/http/07_event_echo.kc3
@@ -16,4 +16,5 @@ acceptor = fn (server, events, void) do
       echo_client, client)
   end
 end
-quote ev = HTTP.Event.new(socket.fd, [:read], acceptor, void)
+quote HTTP.Event.dispatch()
+HTTP.Event.dispatch()