diff --git a/extra/io/windows/nt/backend/backend.factor b/extra/io/windows/nt/backend/backend.factor
index 5eac9d6751..1700f725e8 100644
--- a/extra/io/windows/nt/backend/backend.factor
+++ b/extra/io/windows/nt/backend/backend.factor
@@ -5,6 +5,9 @@ windows.errors windows.kernel32 prettyprint strings splitting
 io.files windows.winsock ;
 IN: io.windows.nt.backend
 
+: .. global [ . flush ] bind ;
+: .S global [ .s flush ] bind ;
+
 : unicode-prefix ( -- seq )
     "\\\\?\\" ; inline
 
@@ -92,7 +95,7 @@ C: <GetQueuedCompletionStatusParams> GetQueuedCompletionStatusParams
 
 : lookup-callback ( GetQueuedCompletion-args -- callback )
     GetQueuedCompletionStatusParams-lpOverlapped* *void*
-    \ io-hash get-global delete-at drop ;
+    \ io-hash get-global delete-at* drop ;
 
 : wait-for-io ( timeout -- continuation/f )
     wait-for-overlapped
diff --git a/extra/ui/windows/windows.factor b/extra/ui/windows/windows.factor
index 50367f6bd6..a320c7ccd0 100644
--- a/extra/ui/windows/windows.factor
+++ b/extra/ui/windows/windows.factor
@@ -456,7 +456,7 @@ M: windows-ui-backend ui
             init-win32-ui
             start-ui
             event-loop
-        ] [ cleanup-win32-ui ] cleanup
+        ] [ cleanup-win32-ui ] [ ] cleanup
     ] ui-running ;
 
 T{ windows-ui-backend } ui-backend set-global