diff --git a/appl/kx/context.c b/appl/kx/context.c
index da1e5f344..021648afe 100644
--- a/appl/kx/context.c
+++ b/appl/kx/context.c
@@ -40,6 +40,10 @@
 
 RCSID("$Id$");
 
+/*
+ * Set the common part of the context `kc'
+ */
+
 void
 context_set (kx_context *kc, char *host, char *user, int port,
 	     int debug_flag, int keepalive_flag, int tcp_flag)
@@ -52,6 +56,10 @@ context_set (kx_context *kc, char *host, char *user, int port,
     kc->tcp_flag	= tcp_flag;
 }
 
+/*
+ * dispatch functions
+ */
+
 void
 context_destroy (kx_context *kc)
 {