diff --git a/basis/io/sockets/windows/windows.factor b/basis/io/sockets/windows/windows.factor
index 579dc85abb..b3b001ecbf 100755
--- a/basis/io/sockets/windows/windows.factor
+++ b/basis/io/sockets/windows/windows.factor
@@ -9,7 +9,7 @@ FROM: namespaces => get ;
 IN: io.sockets.windows
 
 : set-socket-option ( handle level opt -- )
-    1 int <ref> dup byte-length setsockopt socket-error ;
+    [ handle>> ] 2dip 1 int <ref> dup byte-length setsockopt socket-error ;
 
 M: windows addrinfo-error ( n -- )
     winsock-return-check ;