diff --git a/test/my-rdbg-tuning.ml b/test/my-rdbg-tuning.ml
index f7fb277b933cfd2e7ae638107510e83181456542..5c7a2ec36db4a785ad335467853df05ea58b2657 100644
--- a/test/my-rdbg-tuning.ml
+++ b/test/my-rdbg-tuning.ml
@@ -118,7 +118,11 @@ let _ = check_ref := round;;
 
 let next_match str e =
   next_cond e (fun e -> Str.string_match (Str.regexp_string str) e.name 0)
-let nm str = e:=next_match str !e;;
+let nm str = e:= next_match  str !e ;;
+
+let prev_match str e =
+  rev_cond e (fun e -> Str.string_match (Str.regexp_string str) e.name 0)
+let rm str = e:=next_match  str !e ;;
 
 let _ =  ci (); Sys.command (Printf.sprintf "zathura sasa-%s.pdf&" dotfile)