From 0a29e8bbfe322a627f23a2588ae315612a35691e Mon Sep 17 00:00:00 2001
From: soubiran
Date: Thu, 27 Aug 2009 11:17:31 +0000
Subject: Correction bug 2140.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12296 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 library/declaremods.ml | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/library/declaremods.ml b/library/declaremods.ml
index 581e3fd5b2..6275c4b779 100644
--- a/library/declaremods.ml
+++ b/library/declaremods.ml
@@ -844,8 +844,7 @@ let classify_import (export,_ as obj) =
   if export then Substitute obj else Dispose
 
 let subst_import (_,subst,(export,mp as obj)) =
-  let subst' = remove_alias subst in
-  let mp' = subst_mp subst' mp in
+  let mp' = subst_mp subst mp in
     if mp'==mp then obj else
       (export,mp')
 	
-- 
cgit v1.2.3