diff --git a/library/psa_crypto.c b/library/psa_crypto.c
index fe30729..8b25dac 100644
--- a/library/psa_crypto.c
+++ b/library/psa_crypto.c
@@ -3453,7 +3453,7 @@
 void mbedtls_psa_crypto_free( void )
 {
     psa_key_slot_t key;
-    for( key = 1; key < PSA_KEY_SLOT_COUNT; key++ )
+    for( key = 1; key <= PSA_KEY_SLOT_COUNT; key++ )
         psa_destroy_key( key );
     mbedtls_ctr_drbg_free( &global_data.ctr_drbg );
     mbedtls_entropy_free( &global_data.entropy );
diff --git a/tests/suites/test_suite_psa_crypto.function b/tests/suites/test_suite_psa_crypto.function
index 88ef27f..43e4794 100644
--- a/tests/suites/test_suite_psa_crypto.function
+++ b/tests/suites/test_suite_psa_crypto.function
@@ -496,12 +496,10 @@
                                      &exported_size ) == PSA_SUCCESS );
         TEST_ASSERT( exported_size == sizeof( slot ) );
         TEST_ASSERT( memcmp( exported, &slot, sizeof( slot ) ) == 0 );
-        TEST_ASSERT( psa_destroy_key( slot ) == PSA_SUCCESS );
     }
 
 exit:
-    for( slot = 1; slot <= max; slot++ )
-        psa_destroy_key( slot );
+    /* Do not destroy the keys. mbedtls_psa_crypto_free() should do it. */
     mbedtls_psa_crypto_free( );
 }
 /* END_CASE */