From 21f70a09005bda96138d0a0e59d41b35473f7fb5 Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Thu, 6 Dec 2007 17:53:50 +0000
Subject: [PATCH] Fixed typo.

---
 src/c/pathname.d | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/c/pathname.d b/src/c/pathname.d
index f127d0e05..aa8fd3ad3 100644
--- a/src/c/pathname.d
+++ b/src/c/pathname.d
@@ -96,7 +96,7 @@ destructively_check_directory(cl_object directory, bool logical)
 						return @':error';
 					CDR(ecl_nthcdr(i-1, directory)) = CDR(ptr);
 				} else if (l == 2 && ecl_char(item,1) == '.') {
-					CAR(directory) = @':back';
+					CAR(ptr) = @':back';
 					goto BEGIN;
 				}
 			}