From 78c7af076ae9cbe1a343be0811ad620901c4bee0 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 6 Sep 2001 12:22:11 +0000
Subject: Bug default module name

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

diff --git a/library/lib.ml b/library/lib.ml
index 8fc7a4e9cb..34958ed275 100644
--- a/library/lib.ml
+++ b/library/lib.ml
@@ -36,7 +36,7 @@ and library_segment = library_entry list
 
 let lib_stk = ref ([] : (section_path * node) list)
 
-let default_module = make_dirpath [id_of_string "Scratch"]
+let default_module = make_dirpath Nametab.default_root_prefix
 let module_name = ref None
 let path_prefix = ref (default_module : dir_path)
 
-- 
cgit v1.2.3