diff --git a/basis/io/sockets/sockets.factor b/basis/io/sockets/sockets.factor
index 3f68c62a6a..596b6bfc22 100644
--- a/basis/io/sockets/sockets.factor
+++ b/basis/io/sockets/sockets.factor
@@ -348,7 +348,7 @@ SYMBOL: remote-address
         [ (accept) ] keep
         parse-sockaddr swap
         <ports>
-    ] keep encoding>> <encoder-duplex> swap ;
+    ] [ encoding>> ] bi <encoder-duplex> swap ;
 
 : <datagram> ( addrspec -- datagram )
     [
diff --git a/basis/io/sockets/windows/windows.factor b/basis/io/sockets/windows/windows.factor
index b3b001ecbf..ee70e74cce 100755
--- a/basis/io/sockets/windows/windows.factor
+++ b/basis/io/sockets/windows/windows.factor
@@ -96,7 +96,7 @@ M: windows (broadcast) ( datagram -- datagram )
     int <ref> malloc-byte-array ; inline
 
 M: windows WSASocket-flags ( -- DWORD )
-    WSA_FLAG_OVERLAPPED ;
+    WSA_FLAG_OVERLAPPED ; inline
 
 : get-ConnectEx-ptr ( socket -- void* )
     SIO_GET_EXTENSION_FUNCTION_POINTER