diff --git a/cache.c b/cache.c
index 09d3aefcd..ba1a8246c 100644
--- a/cache.c
+++ b/cache.c
@@ -1,5 +1,15 @@
 #include "krb5_locl.h"
 
+/* XXX shouldn't be here */
+
+void krb5_free_ccache(krb5_context context,
+		      krb5_ccache val)
+{
+  free(((krb5_fcache*)(val->data))->filename);
+  free(val->data);
+  free(val);
+}
+
 
 krb5_error_code
 krb5_cc_resolve(krb5_context context,
diff --git a/lib/krb5/cache.c b/lib/krb5/cache.c
index 09d3aefcd..ba1a8246c 100644
--- a/lib/krb5/cache.c
+++ b/lib/krb5/cache.c
@@ -1,5 +1,15 @@
 #include "krb5_locl.h"
 
+/* XXX shouldn't be here */
+
+void krb5_free_ccache(krb5_context context,
+		      krb5_ccache val)
+{
+  free(((krb5_fcache*)(val->data))->filename);
+  free(val->data);
+  free(val);
+}
+
 
 krb5_error_code
 krb5_cc_resolve(krb5_context context,