Update from 0.9.8-stable.
diff --git a/ssl/s3_srvr.c b/ssl/s3_srvr.c
index 01a84e6..6c1751a 100644
--- a/ssl/s3_srvr.c
+++ b/ssl/s3_srvr.c
@@ -472,7 +472,7 @@
 		
 		case SSL3_ST_SW_FLUSH:
 			/* number of bytes to be flushed */
-			num1=BIO_ctrl(s->wbio,BIO_CTRL_INFO,0,NULL);
+			num1=BIO_ctrl(s->wbio,BIO_CTRL_WPENDING,0,NULL);
 			if (num1 > 0)
 				{
 				s->rwstate=SSL_WRITING;