From b92c1cd9df6defe7529d79a083b12bf7f5925f2b Mon Sep 17 00:00:00 2001
From: soubiran
Date: Tue, 10 Feb 2009 11:36:01 +0000
Subject: Correction bug coqdev Hermann lehener.

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

diff --git a/library/declaremods.ml b/library/declaremods.ml
index 16f9c9491b..7923f566b3 100644
--- a/library/declaremods.ml
+++ b/library/declaremods.ml
@@ -629,6 +629,7 @@ let rec get_modtype_substobjs env = function
   | MSEwith (mty, With_Definition _) -> get_modtype_substobjs env mty
   | MSEwith (mty, With_Module (idl,mp)) -> 
       let substobjs = get_modtype_substobjs env mty in
+      let mp = Environ.scrape_alias mp env in
       let modobjs = MPmap.find mp !modtab_substobjs in
 	replace_module_object idl substobjs modobjs mp
   | MSEapply (mexpr, MSEident mp) ->
-- 
cgit v1.2.3