diff --git a/appl/test/tcp_client.c b/appl/test/tcp_client.c
index 10b71aada..75ae5c8bc 100644
--- a/appl/test/tcp_client.c
+++ b/appl/test/tcp_client.c
@@ -132,6 +132,7 @@ proto (int sock, const char *hostname, const char *service)
 	err (1, "krb5_net_write");
     if (krb5_net_write (context, sock, packet.data, len) != len)
 	err (1, "krb5_net_write");
+    return 0;
 }
 
 static int