io.sockets.secure.openssl: do-ssl-connect needs to call wait-for-fd

diff --git a/basis/io/sockets/secure/openssl/openssl.factor b/basis/io/sockets/secure/openssl/openssl.factor
index 785e63baa64c27396924cbe120d94899e3b14a2a..b3d6c863beea63af340bb9da9f0e8c313b6caf06 100644 (file)
--- a/basis/io/sockets/secure/openssl/openssl.factor
+++ b/basis/io/sockets/secure/openssl/openssl.factor
@@ -268,7 +268,7 @@ M: ssl-handle drain
 
 : do-ssl-connect ( ssl-handle -- )
     dup dup handle>> SSL_connect check-connect-response dup
-    [ dupd 2drop do-ssl-connect ] [ 2drop ] if ;
+    [ dupd wait-for-fd do-ssl-connect ] [ 2drop ] if ;
 
 : resume-session ( ssl-handle ssl-session -- )
     [ [ handle>> ] dip SSL_set_session ssl-error ]