diff --git a/kbx/ChangeLog b/kbx/ChangeLog
index ea5b9dbd1..d75700216 100644
--- a/kbx/ChangeLog
+++ b/kbx/ChangeLog
@@ -1,3 +1,7 @@
+2004-12-07  Werner Koch  <wk@g10code.com>
+
+	* keybox-init.c (keybox_release): Close the file pointer.
+
 2004-11-26  Werner Koch  <wk@g10code.com>
 
 	* Makefile.am (kbxutil_LDADD): Add ../common/libcommon.a
diff --git a/kbx/keybox-init.c b/kbx/keybox-init.c
index e11c4f09c..46a29978a 100644
--- a/kbx/keybox-init.c
+++ b/kbx/keybox-init.c
@@ -102,6 +102,11 @@ keybox_release (KEYBOX_HANDLE hd)
   if (!hd)
     return;
   _keybox_release_blob (hd->found.blob);
+  if (hd->fp)
+    {
+      fclose (hd->fp);
+      hd->fp = NULL;
+    }
   xfree (hd->word_match.name);
   xfree (hd->word_match.pattern);
   xfree (hd);