diff --git a/basis/io/files/windows/windows.factor b/basis/io/files/windows/windows.factor
index 577f1292d5..1ca3048f9a 100755
--- a/basis/io/files/windows/windows.factor
+++ b/basis/io/files/windows/windows.factor
@@ -360,7 +360,7 @@ M: windows normalize-path ( string -- string' )
     ] if ;
 
 M: windows CreateFile-flags ( DWORD -- DWORD )
-    FILE_FLAG_OVERLAPPED bitor ;
+    flags{ FILE_FLAG_BACKUP_SEMANTICS FILE_FLAG_OVERLAPPED } bitor ;
 
 <PRIVATE