X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fmatita.ml;h=9aa1fb2f1c3db6f04c493434edf6df0760cc1c43;hb=11b2157bacf59cfc561c2ef6f92ee41ee2c1a006;hp=392a35ab7ce0e350436f956fad9fcc107caee778;hpb=4514417676056e0be6cc481a931e70a627882867;p=helm.git

diff --git a/helm/software/matita/matita.ml b/helm/software/matita/matita.ml
index 392a35ab7..9aa1fb2f1 100644
--- a/helm/software/matita/matita.ml
+++ b/helm/software/matita/matita.ml
@@ -81,8 +81,15 @@ let _ =
   let sequents_viewer = MatitaMathView.sequentsViewer_instance () in
   sequents_viewer#load_logo;
   cic_math_view#set_href_callback
-    (Some (fun uri -> (MatitaMathView.cicBrowser ())#load
-      (`Uri (UriManager.uri_of_string uri))));
+    (Some (fun uri ->
+      let uri =
+       try
+        `Uri (UriManager.uri_of_string uri)
+       with
+        UriManager.IllFormedUri _ ->
+         `NRef (NReference.reference_of_string uri)
+      in
+      (MatitaMathView.cicBrowser ())#load uri));
   let browser_observer _ _ = MatitaMathView.refresh_all_browsers () in
   let sequents_observer _ grafite_status =
     sequents_viewer#reset;