diff --git a/Network/TLS/Core.hs b/Network/TLS/Core.hs
--- a/Network/TLS/Core.hs
+++ b/Network/TLS/Core.hs
@@ -301,7 +301,7 @@
 		clientCerts  = map fst $ pCertificates params
 		getExtensions =
 			if pUseSecureRenegotiation params
-			then usingState_ ctx (getVerifiedData True) >>= \vd -> return [ (0xff01, vd) ]
+			then usingState_ ctx (getVerifiedData True) >>= \vd -> return [ (0xff01, encodeExtSecureRenegotiation vd Nothing) ]
 			else return []
 
 		processServerInfo (Handshake hss) = mapM_ processHandshake hss
diff --git a/tls.cabal b/tls.cabal
--- a/tls.cabal
+++ b/tls.cabal
@@ -1,5 +1,5 @@
 Name:                tls
-Version:             0.7.0
+Version:             0.7.1
 Description:
    native TLS protocol implementation, focusing on purity and more type-checking.
    .