diff --git a/basis/io/sockets/secure/windows/windows.factor b/basis/io/sockets/secure/windows/windows.factor
index 926a144e26..59eccfed19 100644
--- a/basis/io/sockets/secure/windows/windows.factor
+++ b/basis/io/sockets/secure/windows/windows.factor
@@ -60,8 +60,12 @@ M: windows socket-handle handle>> alien-address ;
 M: secure remote>handle ( addrspec -- handle )
     [ addrspec>> remote>handle ] [ hostname>> ] bi <ssl-socket> ;
 
+GENERIC: windows-socket-handle ( obj -- handle )
+M: ssl-handle windows-socket-handle file>> ;
+M: win32-socket windows-socket-handle ;
+
 M: secure (get-local-address) ( handle remote -- sockaddr )
-    addrspec>> (get-local-address) ;
+    [ windows-socket-handle ] [ addrspec>> ] bi* (get-local-address) ;
 
 M: secure parse-sockaddr addrspec>> parse-sockaddr f <secure> ;