diff --git a/library/ssl_tls13_keys.c b/library/ssl_tls13_keys.c
index ab74eb5..25a1b50 100644
--- a/library/ssl_tls13_keys.c
+++ b/library/ssl_tls13_keys.c
@@ -149,6 +149,7 @@
     mbedtls_svc_key_id_t key = MBEDTLS_SVC_KEY_ID_INIT;
     psa_key_attributes_t attributes = PSA_KEY_ATTRIBUTES_INIT;
     psa_status_t status = PSA_ERROR_CORRUPTION_DETECTED;
+    psa_status_t destroy_status = PSA_ERROR_CORRUPTION_DETECTED;
 
     if( salt == NULL || salt_len == 0 )
     {
@@ -183,9 +184,9 @@
     status = psa_mac_compute( key, alg, ikm, ikm_len, prk, prk_size, prk_len );
 
 cleanup:
-    psa_destroy_key( key );
+    destroy_status = psa_destroy_key( key );
 
-    return( status );
+    return( ( status == PSA_SUCCESS ) ? destroy_status : status );
 }
 
 MBEDTLS_STATIC_TESTABLE