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