--- imap.c.orig	Mon Feb  1 17:08:33 1999
+++ imap.c	Wed Feb 10 01:21:12 1999
@@ -282,7 +282,7 @@
 
     memcpy(session, credentials.session, sizeof session);
     memset(&credentials, 0, sizeof credentials);
-    des_key_sched(session, schedule);
+    des_key_sched(&session, schedule);
 
     result = krb_get_tf_fullname(TKT_FILE, tktuser, tktinst, tktrealm);
     if (result) {
