2 files changed, 3 insertions, 3 deletions
diff --git a/otherlibs/labltk/browser/jg_box.ml b/otherlibs/labltk/browser/jg_box.ml
index 681e79e0b..3675f4bfa 100644
--- a/otherlibs/labltk/browser/jg_box.ml
+++ b/otherlibs/labltk/browser/jg_box.ml
@@ -39,7 +39,7 @@ let recenter lb ~index =
 class timed ?wait ?nocase get_texts = object
   val get_texts = get_texts
   inherit Jg_completion.timed [] ?wait ?nocase as super
-  method reset =
+  method! reset =
     texts <- get_texts ();
     super#reset
 end
diff --git a/otherlibs/labltk/browser/jg_completion.ml b/otherlibs/labltk/browser/jg_completion.ml
index feb03c42f..c93b099b3 100644
--- a/otherlibs/labltk/browser/jg_completion.ml
+++ b/otherlibs/labltk/browser/jg_completion.ml
@@ -41,13 +41,13 @@ class timed ?nocase ?wait texts = object (self)
   inherit completion texts ?nocase as super
   val wait = match wait with None -> 500 | Some n -> n
   val mutable timer = None
-  method add c =
+  method! add c =
     begin match timer with
       None -> self#reset
     | Some t -> Timer.remove t
     end;
     timer <- Some (Timer.add ~ms:wait ~callback:(fun () -> self#reset));
     super#add c
-  method reset =
+  method! reset =
     timer <- None; super#reset
 end