From ad44abce61272601834a82c51cc3c05e70c712ca Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 5 Aug 2008 03:02:43 +0000
Subject: 	Fix SF/2037804 	* interp/i-syscmd.boot (cd): Convert new
 directory name 	to PATHNAME type before setting as default.

---
 src/interp/i-syscmd.boot | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/interp')

diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot
index 297a8810..2904c5e9 100644
--- a/src/interp/i-syscmd.boot
+++ b/src/interp/i-syscmd.boot
@@ -258,9 +258,10 @@ listConstructorAbbreviations() ==
 --% )cd
 
 cd args ==
-  dir := TRUENAME STRING(car args or '"")
+  dir := TRUENAME STRING(first args or '"")
   changeDirectory NAMESTRING dir
-  SETF(_*DEFAULT_-PATHNAME_-DEFAULTS_*, ensureTrailingSlash NAMESTRING dir)
+  SETF(_*DEFAULT_-PATHNAME_-DEFAULTS_*, 
+    PATHNAME ensureTrailingSlash NAMESTRING dir)
   sayKeyedMsg("S2IZ0070", [NAMESTRING _*DEFAULT_-PATHNAME_-DEFAULTS_*]) 
 
 
-- 
cgit v1.2.3