diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index 4173e79c6..1f2cef872 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+2004-07-31  Kevin Ryde  <user42@zip.com.au>
+
+	* filesys.c (scm_copy_file): Avoid fd leak when destination file
+	cannot be opened.
+
 2004-07-28  Kevin Ryde  <user42@zip.com.au>
 
 	* regex-posix.c (scm_make_regexp): Use SCM_VALIDATE_INT_COPY on flag
diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog
index a9a63bf2c..815d890f1 100644
--- a/test-suite/ChangeLog
+++ b/test-suite/ChangeLog
@@ -1,3 +1,8 @@
+2004-07-31  Kevin Ryde  <user42@zip.com.au>
+
+	* tests/filesys.test: New file, exercising copy-file.
+	* Makefile.am (SCM_TESTS): Add it.
+
 2004-07-28  Kevin Ryde  <user42@zip.com.au>
 
 	* tests/regexp.test (make-regexp): Exercise flags args validation.