diff --git a/kuser/kinit.c b/kuser/kinit.c
index cdf255c58..b080e74be 100644
--- a/kuser/kinit.c
+++ b/kuser/kinit.c
@@ -290,9 +290,11 @@ do_524init(krb5_context context, krb5_ccache ccache,
 	krb5_cc_get_principal(context, ccache, &client);
 	memset(&in_creds, 0, sizeof(in_creds));
 	ret = get_server(context, client, server, &in_creds.server);
+	krb5_free_principal(context, client);
 	if(ret)
 	    return ret;
 	ret = krb5_get_credentials(context, 0, ccache, &in_creds, &real_creds);
+	krb5_free_principal(context, in_creds.server);
 	if(ret)
 	    return ret;
     }