From e3799282394d2e74c7210d0bfa4356f5649d5daf Mon Sep 17 00:00:00 2001
From: ubu32 <vitor@ubuntu.(none)>
Date: Mon, 11 Jul 2011 07:40:43 -0700
Subject: [PATCH] make cd look for ~ and $HOME expansion.

---
 pl/utils.yap | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/pl/utils.yap b/pl/utils.yap
index 01ed7fb0a..90bcc3fbf 100644
--- a/pl/utils.yap
+++ b/pl/utils.yap
@@ -218,7 +218,9 @@ current_op(X,Y,Z) :-
 cd :-
 	cd('~').
 
-cd(F) :- absolute_file_name(F, Dir, [file_type(directory)]), working_directory(_, Dir).
+cd(F) :-
+      absolute_file_name(F, Dir, [file_type(directory),file_errors(fail),access(execute),expand(true)]),
+      working_directory(_, Dir).
 
 getcwd(Dir) :- working_directory(Dir, Dir).