Bug sur précédent commit

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@819 85f007b7-540e-0410-9357-904b9bb8a0f7

1 files changed, 1 insertions, 1 deletions

diff --git a/kernel/names.ml b/kernel/names.ml
index f426635f6d..b5e58c6bfa 100644
--- a/kernel/names.ml
+++ b/kernel/names.ml
@@ -90,7 +90,7 @@ let next_ident_away id avoid =
     let id0 = if id.index = -1 then id else 
     (* Ce serait sans doute mieux avec quelque chose inspiré de 
        *** make_ident id (Some 0) *** mais ça brise la compatibilité... *)
-    { id with index = -1 } in
+    { id with index = 0 } in
     let rec name_rec id =
       if List.mem id avoid then name_rec (lift_ident id) else id in 
     name_rec id0