diff --git a/library/io/unix/files.factor b/library/io/unix/files.factor
index e4a1228c23..865cbb29a3 100644
--- a/library/io/unix/files.factor
+++ b/library/io/unix/files.factor
@@ -1,7 +1,8 @@
-! Copyright (C) 2005 Slava Pestov.
-! See http://factor.sf.net/license.txt for BSD license.
+! Copyright (C) 2005, 2006 Slava Pestov.
+! See http://factorcode.org/license.txt for BSD license.
 IN: io
-USE: io-internals
+USING: io-internals kernel ;
 
 : <file-reader> ( path -- stream ) open-read <reader> ;
 : <file-writer> ( path -- stream ) open-write <writer> ;
+: <file-r/w> ( path -- stream ) open-r/w dup <fd-stream> ;
diff --git a/library/io/unix/io.factor b/library/io/unix/io.factor
index 2f12c802da..e7d25b8bca 100644
--- a/library/io/unix/io.factor
+++ b/library/io/unix/io.factor
@@ -295,6 +295,7 @@ M: port stream-close ( stream -- )
     ] unless drop ;
 
 ! Make a duplex stream for reading/writing a pair of fds
+: open-r/w ( path -- fd ) O_RDWR file-mode open dup io-error ;
 
 : <fd-stream> ( infd outfd -- stream )
     >r <reader> r> <writer> <duplex-stream> ;