diff --git a/extra/io/unix/files/files.factor b/extra/io/unix/files/files.factor
index 835b14e66d..d30e5c93a5 100755
--- a/extra/io/unix/files/files.factor
+++ b/extra/io/unix/files/files.factor
@@ -17,8 +17,7 @@ M: unix cd ( path -- )
 
 : read-flags O_RDONLY ; inline
 
-: open-read ( path -- fd )
-    O_RDONLY file-mode open dup io-error ;
+: open-read ( path -- fd ) O_RDONLY file-mode open-file ;
 
 M: unix (file-reader) ( path -- stream )
     open-read <input-port> ;