Index: tls.c
==================================================================
--- tls.c
+++ tls.c
@@ -1466,10 +1466,16 @@
 	Tcl_ListObjAppendElement(interp, objPtr,
 		Tcl_NewStringObj("cipher", -1));
 	Tcl_ListObjAppendElement(interp, objPtr,
 		Tcl_NewStringObj(SSL_get_cipher(statePtr->ssl), -1));
     }
+
+    Tcl_ListObjAppendElement(interp, objPtr,
+	Tcl_NewStringObj("version", -1));
+    Tcl_ListObjAppendElement(interp, objPtr,
+	Tcl_NewStringObj(SSL_get_version(statePtr->ssl), -1));
+
     Tcl_SetObjResult( interp, objPtr);
     return TCL_OK;
     	clientData = clientData;
 }
 

Index: tls.htm
==================================================================
--- tls.htm
+++ tls.htm
@@ -147,10 +147,13 @@
             server channels.</dd>
         <dt><strong>sbits</strong> <em>n</em></dt>
         <dd>The number of bits used for the session key.</dd>
         <dt><strong>certificate</strong> <em>n</em></dt>
         <dd>The PEM encoded certificate.</dd>
+        <dt><strong>version</strong> <em>value</em></dt>
+        <dd>The protocol version used for the connection:
+	  SSLv2, SSLv3, TLSv1, TLSv1.1, TLSv1.2, unknown</dd>
     </dl>
 </blockquote>
 
 <dl>
     <dt><a name="tls::import"><b>tls::import </b><i>channel