     ] if ;
 
 : get-overlapped-result ( overlapped port -- bytes-transferred )
-    dup port-handle win32-file-handle rot 0 <uint>
+    dup handle>> handle>> rot 0 <uint>
     [ 0 GetOverlappedResult overlapped-error? drop ] keep *uint ;
 
 : save-callback ( overlapped port -- )

io.windows libc kernel math namespaces sequences
threads classes.tuple.lib windows windows.errors
windows.kernel32 strings splitting io.files qualified ascii
combinators.lib system ;
QUALIFIED: windows.winsock
IN: io.windows.nt.backend


        ] [
            dup eof? [
                drop lookup-callback
                dup port>> t >>eof drop
            ] [
                (win32-error-string) swap lookup-callback
                [ port>> set-port-error ] keep
            ] if thread>> resume f
        ] if
    ] [
        lookup-callback
