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:"