X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Ftactics%2FtacticChaser.ml;fp=helm%2Focaml%2Ftactics%2FtacticChaser.ml;h=6f83c3fd67bb726d95fae43fe24e8fbada6b1f52;hb=4c9da07604c4f8b66e4e92861ee38129422d23fb;hp=f38258d1e96632b4dc14e658b48ccc748a5738e2;hpb=11b9b274291baa8c5462b2ce3e2a5f93a39c9d57;p=helm.git

diff --git a/helm/ocaml/tactics/tacticChaser.ml b/helm/ocaml/tactics/tacticChaser.ml
index f38258d1e..6f83c3fd6 100644
--- a/helm/ocaml/tactics/tacticChaser.ml
+++ b/helm/ocaml/tactics/tacticChaser.ml
@@ -52,7 +52,7 @@ let searchPattern mqi_handle ?(output_html = (fun _ -> ())) ~choose_must () ~sta
   let rigth_only = Some (List.map torigth_restriction only) in
   let result =
 	 MQueryInterpreter.execute mqi_handle 
-	    (MQueryGenerator.searchPattern
+	    (MQueryGenerator.query_of_constraints None
 		(rigth_must,[],[]) (rigth_only,None,None)) in 
 	let uris =
 	 List.map