@@ -128,10 +128,13 @@
 	int vflags;             /* verify flags */
 	SSL *ssl;               /* Struct for SSL processing */
 	SSL_CTX *ctx;           /* SSL Context */
 	BIO *bio;               /* Struct for SSL processing */
 	BIO *p_bio;             /* Parent BIO (that is layered on Tcl_Channel) */
+
+	char *protos;		/* List of supported protocols in protocol format */
+	unsigned int protos_len; /* Length of protos */
 
 	char *err;
 } State;
 
 #ifdef USE_TCL_STUBS