diff --git a/appl/popper/pop_log.c b/appl/popper/pop_log.c
index be89c885e..4b2c61e0f 100644
--- a/appl/popper/pop_log.c
+++ b/appl/popper/pop_log.c
@@ -24,7 +24,11 @@ pop_log(POP *p, int stat, char *format, ...)
         fprintf(p->trace,"%s\n",msgbuf);
         fflush(p->trace);
     } else {
+#ifdef KERBEROS
+	krb5_log(p->context, p->logf, stat, "%s", msgbuf);
+#else
         syslog (stat,"%s",msgbuf);
+#endif
     }
     va_end(ap);
 
diff --git a/appl/popper/popper.h b/appl/popper/popper.h
index 5d81885df..f433779bb 100644
--- a/appl/popper/popper.h
+++ b/appl/popper/popper.h
@@ -253,6 +253,7 @@ typedef struct  {                               /*  POP parameter block */
 #endif
     krb5_context	context;
     krb5_principal	principal;              /*  principal auth as */
+    krb5_log_facility*  logf;
     int			version;                /*  4 or 5? */
     int			auth_level;		/*  Dont allow cleartext */
     OtpContext		otp_ctx;		/*  OTP context */