diff --git a/basis/io/files/windows/windows.factor b/basis/io/files/windows/windows.factor
index cda77915cc..bd924989a9 100755
--- a/basis/io/files/windows/windows.factor
+++ b/basis/io/files/windows/windows.factor
@@ -68,7 +68,10 @@ C: <io-callback> io-callback
 
 : make-overlapped ( port -- overlapped-ext )
     [ (make-overlapped) ] dip
-    handle>> ptr>> [ >>offset ] when* ;
+    handle>> ptr>> [
+        [ 32 bits >>offset ]
+        [ -32 shift >>offset-high ] bi
+    ] when* ;
 
 M: windows FileArgs-overlapped ( port -- overlapped )
     make-overlapped ;