[r2005-07-29 12:02:11 by afrisch] Bug fix in pretty printer

Original author: afrisch
Date: 2005-07-29 12:02:11+00:00

schema/schema_converter.ml

@@ -168,6 +168,7 @@ let attr_group ag = attr_uses ag.ag_def
 
 
 let load_schema schema_name uri =
+  let schema_name = schema_name ^ "." in
   let log_schema_component kind name cd_type =
     if not (Schema_builtin.is name) then begin
       Types.Print.register_global schema_name name cd_type;