diff --git a/lib/com_err/error.c b/lib/com_err/error.c
index 46948c290..f52cf4a5c 100644
--- a/lib/com_err/error.c
+++ b/lib/com_err/error.c
@@ -16,3 +16,13 @@ com_right(struct error_table *list, long code)
     }
     return NULL;
 }
+
+void
+free_error_table(struct error_table *et)
+{
+    while(et){
+	struct error_table *p = et;
+	et = et->next;
+	free(p);
+    }
+}
diff --git a/lib/error/error.c b/lib/error/error.c
index 46948c290..f52cf4a5c 100644
--- a/lib/error/error.c
+++ b/lib/error/error.c
@@ -16,3 +16,13 @@ com_right(struct error_table *list, long code)
     }
     return NULL;
 }
+
+void
+free_error_table(struct error_table *et)
+{
+    while(et){
+	struct error_table *p = et;
+	et = et->next;
+	free(p);
+    }
+}
diff --git a/lib/krb5/context.c b/lib/krb5/context.c
index 39ceec079..d5ee29250 100644
--- a/lib/krb5/context.c
+++ b/lib/krb5/context.c
@@ -34,7 +34,7 @@ krb5_free_context(krb5_context context)
   free(context->etypes);
   free(context->default_realm);
   krb5_config_file_free (context->cf);
-  destroy_hdb_error_table (context->et_list);
+  free_error_table (context->et_list);
   for(i = 0; i < context->num_ops; ++i)
     free(context->cc_ops[i].prefix);
   free(context->cc_ops);