From 86e54c8a28569db5d41565b258cba6b371145f7e Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Sat, 31 Dec 2011 03:16:15 +0100
Subject: [PATCH] In TRUENAME, ".." was not eliminated from the path

---
 src/c/unixfsys.d | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/c/unixfsys.d b/src/c/unixfsys.d
index 5ebdb321e..3589efe94 100755
--- a/src/c/unixfsys.d
+++ b/src/c/unixfsys.d
@@ -299,9 +299,10 @@ enter_directory(cl_object base_dir, cl_object subdir)
                         "actually points to a file or special device.",
                         2, subdir, base_dir);
         }
+	cl_print(1,subdir);
         if (subdir == @':up') {
                 cl_object newdir= output->pathname.directory;
-                newdir = ecl_nbutlast(newdir, 0);
+                newdir = ecl_nbutlast(newdir, 1);
                 if (Null(newdir)) {
                         FEerror("Pathname contained an :UP component  "
                                 "that goes above the base directory:"