     handle-overlapped [ 0 drain-overlapped ] unless ;
 
 M: winnt cancel-io
-    port-handle win32-file-handle CancelIo drop ;
+    handle>> handle>> CancelIo drop ;
 
 M: winnt io-multiplex ( ms -- )
     drain-overlapped ;

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
