diff --git a/vendor/brr_lwd_ui/lib/forms/field.ml b/vendor/brr_lwd_ui/lib/forms/field.ml
index 7350456..0236948 100644
--- a/vendor/brr_lwd_ui/lib/forms/field.ml
+++ b/vendor/brr_lwd_ui/lib/forms/field.ml
@@ -50,6 +50,8 @@ let make_input ~(value : Jv.t -> 'a) ?validate ?d ?(at = []) ?ev
   in
   let validate = Option.value validate ~default:(fun v -> Ok v) in
   let on_change, value =
+    (* TODO this does not work very well: sometime the event don't fire and some
+       input is missing. *)
     make_handler ~value ~value_change_event default_value
   in
   let ev = `P on_change :: Option.to_list ev in