From 30758c2082ad2d2685a310e057dd61be3e9fa646 Mon Sep 17 00:00:00 2001
From: notin
Date: Tue, 28 Aug 2007 09:28:46 +0000
Subject: Correction d'un bug dans check_and_warn

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

(limited to 'lib/system.ml')

diff --git a/lib/system.ml b/lib/system.ml
index b258efd6b9..31e8f5649e 100644
--- a/lib/system.ml
+++ b/lib/system.ml
@@ -116,7 +116,7 @@ let where_in_path path filename =
 	  (lpe, f)
       | (lpe, f) :: l' -> 
 	  if cont then
-	    check_and_warn true (acc ^ "; ") l'
+	    check_and_warn true (acc ^ (string_of_physical_path lpe) ^ "; ") l'
 	  else
 	    check_and_warn true 
 	      (filename ^ " has been found in [ " ^ (string_of_physical_path lpe) ^ "; ") l' 
-- 
cgit v1.2.3