diff --git a/lib/krb5/krb5_principal.3 b/lib/krb5/krb5_principal.3
index 38cdfe91d..83b86d0bb 100644
--- a/lib/krb5/krb5_principal.3
+++ b/lib/krb5/krb5_principal.3
@@ -101,11 +101,11 @@ Kerberos 5 Library (libkrb5, -lkrb5)
 .Ft krb5_boolean
 .Fn krb5_principal_compare_any_realm "krb5_context context" "krb5_const_principal princ1 "krb5_const_principal princ2"
 .Ft "const char *"
-.Fn krb5_principal_get_comp_string "krb5_context context" "krb5_principal principal" "unsigned int component"
+.Fn krb5_principal_get_comp_string "krb5_context context" "krb5_const_principal principal" "unsigned int component"
 .Ft "const char *"
-.Fn krb5_principal_get_realm "krb5_context context" "krb5_principal principal"
+.Fn krb5_principal_get_realm "krb5_context context" "krb5_const_principal principal"
 .Ft int
-.Fn krb5_principal_get_type "krb5_context context" "krb5_principal principal"
+.Fn krb5_principal_get_type "krb5_context context" "krb5_const_principal principal"
 .Ft krb5_boolean
 .Fn krb5_principal_match "krb5_context context" "krb5_const_principal principal" "krb5_const_principal pattern"
 .Ft void
diff --git a/lib/krb5/principal.c b/lib/krb5/principal.c
index 898ef7f45..b6e7186bf 100644
--- a/lib/krb5/principal.c
+++ b/lib/krb5/principal.c
@@ -69,21 +69,21 @@ krb5_principal_set_type(krb5_context context,
 
 int KRB5_LIB_FUNCTION
 krb5_principal_get_type(krb5_context context,
-			krb5_principal principal)
+			krb5_const_principal principal)
 {
     return princ_type(principal);
 }
 
 const char* KRB5_LIB_FUNCTION
 krb5_principal_get_realm(krb5_context context,
-			 krb5_principal principal)
+			 krb5_const_principal principal)
 {
     return princ_realm(principal);
 }			 
 
 const char* KRB5_LIB_FUNCTION
 krb5_principal_get_comp_string(krb5_context context,
-			       krb5_principal principal,
+			       krb5_const_principal principal,
 			       unsigned int component)
 {
     if(component >= princ_num_comp(principal))