long kadm_change_your_password(LPSTR principal, LPSTR old_password,
                               LPSTR new_password, HANDLE FAR * hInfo_desc);

long FAR Leash_changepwd(char *principal, char *password, char *newpassword, LPSTR return_handle)
{
  long k_errno;

  k_errno = kadm_change_your_password( (LPSTR) principal, (LPSTR) password, (LPSTR) newpassword, (void FAR *) return_handle);
  return k_errno;
}