diff --git a/src_ocaml/grewpy.ml b/src_ocaml/grewpy.ml
index 434f87e14ee32ed564e56e593318b5bbdd8f44ee..eed93c12b9a4e0d2eef8b4994bd0b47643f9f55b 100644
--- a/src_ocaml/grewpy.ml
+++ b/src_ocaml/grewpy.ml
@@ -142,7 +142,7 @@ let run_command request =
           let corpus = Global.corpus_get corpus_index in
           let matches = Array.fold_left
               (fun acc (id,graph) ->
-                 let matching_list = Graph.search_pattern ~config pattern graph in
+                 let matching_list = Matching.search_pattern_in_graph ~config pattern graph in
                  (List.map
                     (fun m -> `Assoc [
                          ("sent_id", `String id);
@@ -171,7 +171,7 @@ let run_command request =
           let corpus = Global.corpus_get corpus_index in
           let count = Array.fold_left
               (fun acc (id,graph) ->
-                 let matching_list = Graph.search_pattern ~config pattern graph in
+                 let matching_list = Matching.search_pattern_in_graph ~config pattern graph in
                  (List.length matching_list) + acc
               ) 0 corpus in
           Yojson.Basic.to_string
@@ -190,7 +190,7 @@ let run_command request =
         | Some graph, Some string_pattern ->
           let gr = Graph.of_json_python ~config (Yojson.Basic.from_string graph) in
           let pattern = Pattern.parse ~config string_pattern in
-          let matching_list = Graph.search_pattern ~config pattern gr in
+          let matching_list = Matching.search_pattern_in_graph ~config pattern gr in
           let json_list = List.map (fun m -> Matching.to_json pattern gr m) matching_list in
           Yojson.Basic.to_string (`Assoc [("status", `String "OK"); ("data", `List (json_list))])
         | _ -> json_error "incomplete 'search' command"