From 511eb450af63ef91cbb1a002334f9c114702c338 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Tue, 23 Jul 2002 16:54:29 +0000
Subject: [PATCH] truly fix add_to_path

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@559 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 pl/boot.yap | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pl/boot.yap b/pl/boot.yap
index b3e912c5a..5851cfb66 100644
--- a/pl/boot.yap
+++ b/pl/boot.yap
@@ -1064,7 +1064,7 @@ add_to_path(New) :- add_to_path(New,last).
 add_to_path(New,Pos) :-
 	'$check_path'(New,Str),
 	atom_codes(Fixed,Str),
-	'$add_to_path'(Str,Pos).
+	'$add_to_path'(Fixed,Pos).
 
 '$add_to_path'(New,_) :- '$recorded'('$path',New,R), erase(R), fail.
 '$add_to_path'(New,last) :- !, '$recordz'('$path',New,_).