X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=matita%2FmatitaInit.ml;h=26f4b40ffe421a1867b85e6358137ea5730ae187;hb=6ad533c972e6c9e9db53f38f972e7c0792160f2e;hp=88f5c9c35325356f51c7315fd7ad2e8ed53243dd;hpb=15d6dc1249038e9235bb0f776f2c5ae0b37f17f1;p=helm.git

diff --git a/matita/matitaInit.ml b/matita/matitaInit.ml
index 88f5c9c35..26f4b40ff 100644
--- a/matita/matitaInit.ml
+++ b/matita/matitaInit.ml
@@ -59,7 +59,6 @@ let set_registry_values =
   List.iter (fun key, value -> Helm_registry.set ~key ~value)
 
 let fill_registry init_status =
-  wants [ ConfigurationFile ] init_status;
   if not (already_configured [ Registry ] init_status) then begin
     set_registry_values registry_defaults;
     Registry :: init_status
@@ -225,6 +224,7 @@ let add_cmdline_spec l = extra_cmdline_specs := l @ !extra_cmdline_specs
 
 let parse_cmdline init_status =
   if not (already_configured [CmdLine] init_status) then begin
+    wants [Registry] init_status;
     let includes = ref [] in
     let default_includes = [ 
       ".";
@@ -312,7 +312,7 @@ let die_usage () =
   exit 1
 
 let conf_components = 
-  [ parse_cmdline; load_configuration; fill_registry ]
+  [ load_configuration; fill_registry; parse_cmdline]
 
 let other_components =
   [ initialize_makelib; initialize_db; initialize_environment ]