X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FgTopLevel%2Fregtest.ml;h=76621b5ecf8d611a9507db803e1e1f79e2cf5dfd;hb=6f858ebccf7bbad68fa9d4218c406c938b7f84a7;hp=5e246c97c99d856d141cc08499b2358dea227615;hpb=c9995e146dc70bed25b9fe2913f3d5d31a4f9086;p=helm.git

diff --git a/helm/gTopLevel/regtest.ml b/helm/gTopLevel/regtest.ml
index 5e246c97c..76621b5ec 100644
--- a/helm/gTopLevel/regtest.ml
+++ b/helm/gTopLevel/regtest.ml
@@ -267,7 +267,7 @@ let _ =
       (HelmLogger.string_of_html_msg msg));
  
  let mqi_debug_fun = ignore in
- let mqi_handle = MQIConn.init mqi_debug_fun in
+ let mqi_handle = MQIConn.init ~log:mqi_debug_fun () in
  
  let fnames = ref [] in
  let gen = ref false in