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

---
 extra/io/unix/files/files.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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