Index: tls.c
==================================================================
--- tls.c
+++ tls.c
@@ -1278,11 +1278,13 @@
 	    SSL_CTX_free(ctx);
 	    return (SSL_CTX *)0;
 	}
 
 	/* get the private key associated with this certificate */
-	if (key == NULL) keyfile=certfile;
+	if (keyfile == NULL) {
+	    keyfile = certfile;
+	}
 
 	if (SSL_CTX_use_PrivateKey_file(ctx, F2N( keyfile, &ds),
 					SSL_FILETYPE_PEM) <= 0) {
 	    Tcl_DStringFree(&ds);
 	    /* flush the passphrase which might be left in the result */
@@ -1311,13 +1313,13 @@
 			     REASON(), (char *) NULL);
 	    SSL_CTX_free(ctx);
 	    return (SSL_CTX *)0;
 	}
 	if (key == NULL) {
-    key=cert;
-    key_len = cert_len;
-  }
+	    key = cert;
+	    key_len = cert_len;
+	}
 	if (SSL_CTX_use_PrivateKey_ASN1(EVP_PKEY_RSA, ctx, key,key_len) <= 0) {
 	    Tcl_DStringFree(&ds);
 	    /* flush the passphrase which might be left in the result */
 	    Tcl_SetResult(interp, NULL, TCL_STATIC);
 	    Tcl_AppendResult(interp,