diff --git a/lib/krb5/creds.c b/lib/krb5/creds.c
index 4a5e1629b..40f10e4a3 100644
--- a/lib/krb5/creds.c
+++ b/lib/krb5/creds.c
@@ -128,11 +128,17 @@ krb5_free_creds (krb5_context context, krb5_creds *c)
     return 0;
 }
 
+/*
+ * Return TRUE if `mcreds' and `creds' are equal (`whichfields'
+ * determines what equal means).
+ */
+
 krb5_boolean
 krb5_compare_creds(krb5_context context, krb5_flags whichfields, 
 		   krb5_creds *mcreds, krb5_creds *creds)
 {
     krb5_boolean match;
+
     if(whichfields & KRB5_TC_DONT_MATCH_REALM)
 	match = krb5_principal_compare_any_realm(context, 
 						 mcreds->server, 
@@ -140,9 +146,9 @@ krb5_compare_creds(krb5_context context, krb5_flags whichfields,
     else
 	match = krb5_principal_compare(context, mcreds->server, creds->server);
     if(match && (whichfields & KRB5_TC_MATCH_KEYTYPE) &&
-       !krb5_enctypes_comptible_keys (context,
-				      mcreds->session.keytype,
-				      creds->session.keytype))
+       !krb5_enctypes_compatible_keys (context,
+				       mcreds->session.keytype,
+				       creds->session.keytype))
 	match = FALSE;
     return match;
 }