diff --git a/src/froc-dom/froc_dom.ml b/src/froc-dom/froc_dom.ml
index 4e70dad..175ba2f 100644
--- a/src/froc-dom/froc_dom.ml
+++ b/src/froc-dom/froc_dom.ml
@@ -165,4 +165,4 @@ let keyEvent name (elem : #Dom.element) =
   cleanup (fun () -> elem#removeEventListener_keyEvent_ name f false);
   e
 
-let clicks (elem : #Dom.element) = event "click" elem
+let clicks (elem : #Dom.element) = mouseEvent "click" elem
diff --git a/src/froc-dom/froc_dom.mli b/src/froc-dom/froc_dom.mli
index a5065c9..094c473 100644
--- a/src/froc-dom/froc_dom.mli
+++ b/src/froc-dom/froc_dom.mli
@@ -50,7 +50,7 @@ val attach_fontSize_b : #Dom.element -> string Froc.behavior -> unit
 val appendChild : #Dom.node -> #Dom.node Froc.behavior -> unit
 val replaceNode : #Dom.node -> #Dom.node Froc.behavior -> unit
 
-val clicks : #Dom.element -> Dom.event Froc.event
+val clicks : #Dom.element -> Dom.mouseEvent Froc.event
 
 val event : string -> #Dom.element -> Dom.event Froc.event
 val mouseEvent : string -> #Dom.element -> Dom.mouseEvent Froc.event