@@ -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;
 }