From 226956f8efbd0db70f9fe8762505202cd9041fe4 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 7 Nov 2000 17:49:56 +0000
Subject: Bug sur précédent commit

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@819 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 kernel/names.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'kernel')

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
-- 
cgit v1.2.3