From 2db76ac23c5eb6213b85de0dc15f0d30ff94dadb Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 29 May 2012 11:20:55 -0700
Subject: [PATCH] io.sockets.windows: get the handle from the handle.

---
 basis/io/sockets/windows/windows.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 ;