From 537d94566005c51b29fe358f79d2709b33c4b392 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 5 Feb 2008 23:14:10 -0600
Subject: [PATCH] fix getcwd

---
 extra/io/unix/files/files.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/io/unix/files/files.factor b/extra/io/unix/files/files.factor
index 101114ffb2..3bf0e3f897 100755
--- a/extra/io/unix/files/files.factor
+++ b/extra/io/unix/files/files.factor
@@ -6,8 +6,8 @@ alien ;
 IN: io.unix.files
 
 M: unix-io cwd
-    MAXPATHLEN dup <byte-array> swap getcwd
-    [ alien>char-string ] [ (io-error) ] if* ;
+    MAXPATHLEN dup <byte-array> swap
+    getcwd [ (io-error) ] unless* ;
 
 M: unix-io cd
     chdir io-error ;