X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2FmatitaGui.ml;h=fde6ba1ae2d9abde9b6a2b13bd6cfab1217d8065;hb=a5bfa65b18a876fca982270f673c686a7d124f65;hp=e9302d5ac3d57a4bb664755ea9ee7ceec7ab2eb6;hpb=34ea4ebce4c8acc5038c7c563121dcb27a80abea;p=helm.git

diff --git a/matita/matitaGui.ml b/matita/matitaGui.ml
index e9302d5ac..fde6ba1ae 100644
--- a/matita/matitaGui.ml
+++ b/matita/matitaGui.ml
@@ -783,7 +783,9 @@ class gui () =
               notify_exn exc;
               unlock_world ()
        in
-        worker_thread := Some (Thread.create thread_main ()) in
+       (*thread_main ();*)
+       worker_thread := Some (Thread.create thread_main ())
+      in
       let kill_worker =
        (* the following lines are from Xavier Leroy: http://alan.petitepomme.net/cwn/2005.11.08.html *)
        let interrupt = ref None in
@@ -889,6 +891,8 @@ class gui () =
         | None -> true
         | Some path -> 
             let is_prefix_of d1 d2 =
+              let d1 = MatitamakeLib.normalize_path d1 in
+              let d2 = MatitamakeLib.normalize_path d2 in
               let len1 = String.length d1 in
               let len2 = String.length d2 in
               if len2 < len1 then