*** auth-kerberos.c.orig	Tue Nov 10 15:57:02 1998
--- auth-kerberos.c	Tue Nov 10 16:00:07 1998
***************
*** 109,118 ****
--- 109,126 ----
        
        debug("Kerberos invalid service name (%.100s).", server);
        packet_send_debug("Kerberos invalid service name (%.100s).", server);
+ #ifdef krb5_xfree
        krb5_xfree(server);
+ #else
+       free(server);
+ #endif
        return 0;
      }
+ #ifdef krb5_xfree
    krb5_xfree(server);
+ #else
+   free(server);
+ #endif
    
    /* Extract the users name from the ticket client principal */
    problem = krb5_copy_principal(ssh_context, ticket->enc_part2->client,
***************
*** 148,154 ****
--- 156,166 ----
    packet_put_string((char *) reply.data, reply.length);
    packet_send();
    packet_write_wait();
+ #ifdef krb5_xfree
    krb5_xfree(reply.data);
+ #else
+   krb5_free_data_contents(ssh_context, &reply);
+ #endif
    return 1;
  }
  #endif /* KRB5 */
