From 285c4b02529add0789240539dbf11b276f2ccc3a Mon Sep 17 00:00:00 2001
From: herbelin
Date: Tue, 30 Mar 2004 11:11:54 +0000
Subject: Renommage

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

(limited to 'contrib/xml/xmlcommand.ml')

diff --git a/contrib/xml/xmlcommand.ml b/contrib/xml/xmlcommand.ml
index 6ac022c2d3..3d98375ddf 100644
--- a/contrib/xml/xmlcommand.ml
+++ b/contrib/xml/xmlcommand.ml
@@ -544,7 +544,7 @@ let show_pftreestate fn (kind,pftst) id =
  let kn = Lib.make_kn id in
  let env = Global.env () in
  let obj = mk_current_proof_obj id val0 typ evar_map env in
- let uri = Cic2acic.uri_of_path (Lib.cwd()) id Cic2acic.Constant in
+ let uri = Cic2acic.uri_of_declaration id Cic2acic.Constant in
   print_object_kind uri (kind_of_goal kind);
   print_object uri obj evar_map
    (Some (Tacmach.evc_of_pftreestate pftst,unshared_pf,proof_tree_to_constr,
-- 
cgit v1.2.3