Index: generic/tls.c
==================================================================
--- generic/tls.c
+++ generic/tls.c
@@ -2077,14 +2077,11 @@
 	if (CApath != NULL || CAfile != NULL) {
 	    Tcl_DString ds1;
 	    Tcl_DStringInit(&ds1);
 
 	    if (!SSL_CTX_load_verify_locations(ctx, F2N(CAfile, &ds), F2N(CApath, &ds1))) {
-		Tcl_AppendResult(interp, GET_ERR_REASON(), (char *) NULL);
-		SSL_CTX_free(ctx);
-		Tcl_DStringFree(&ds);
-		Tcl_DStringFree(&ds1);
+		abort++;
 		return NULL;
 	    }
 	    Tcl_DStringFree(&ds);
 	    Tcl_DStringFree(&ds1);
 
@@ -2100,36 +2097,27 @@
 
 #else
 	/* Set directory containing CA certificates in PEM format. */
 	if (CApath != NULL) {
 	    if (!SSL_CTX_load_verify_dir(ctx, F2N(CApath, &ds))) {
-		Tcl_AppendResult(interp, GET_ERR_REASON(), (char *) NULL);
-		SSL_CTX_free(ctx);
-		Tcl_DStringFree(&ds);
-		return NULL;
+		abort++;
 	    }
 	    Tcl_DStringFree(&ds);
 	}
 	
 	/* Set URI for to a store, which may be a single container or a catalog of containers. */
 	if (CAstore != NULL) {
 	    if (!SSL_CTX_load_verify_store(ctx, F2N(CAstore, &ds))) {
-		Tcl_AppendResult(interp, GET_ERR_REASON(), (char *) NULL);
-		SSL_CTX_free(ctx);
-		Tcl_DStringFree(&ds);
-		return NULL;
+		abort++;
 	    }
 	    Tcl_DStringFree(&ds);
 	}
 	
 	/* Set file of CA certificates in PEM format.  */
 	if (CAfile != NULL) {
 	    if (!SSL_CTX_load_verify_file(ctx, F2N(CAfile, &ds))) {
-		Tcl_AppendResult(interp, GET_ERR_REASON(), (char *) NULL);
-		SSL_CTX_free(ctx);
-		Tcl_DStringFree(&ds);
-		return NULL;
+		abort++;
 	    }
 	    Tcl_DStringFree(&ds);
 
 	    /* Set list of CAs to send to client when requesting a client certificate */
 	    STACK_OF(X509_NAME) *certNames = SSL_load_client_CA_file(F2N(CAfile, &ds));