diff --git a/CHANGES b/CHANGES
index bcbff22dc8..99d8b8007a 100644
--- a/CHANGES
+++ b/CHANGES
@@ -1,3 +1,6 @@
+1631.	[bug]		dns_journal_compact() could sometimes corrupt the
+			journal. [RT #11124]
+
 1628.	[bug]		Typo in Compaq Trucluster support. [RT# 11264]
 
 1627.	[bug]		win32: sockets were not being closed when the
diff --git a/lib/dns/journal.c b/lib/dns/journal.c
index c6d052a8f4..41525b5d95 100644
--- a/lib/dns/journal.c
+++ b/lib/dns/journal.c
@@ -15,7 +15,7 @@
  * PERFORMANCE OF THIS SOFTWARE.
  */
 
-/* $Id: journal.c,v 1.86 2004/03/05 05:09:20 marka Exp $ */
+/* $Id: journal.c,v 1.86.18.1 2004/05/11 22:23:37 marka Exp $ */
 
 #include <config.h>
 
@@ -2115,6 +2115,7 @@ index_to_disk(dns_journal_t *j) {
 		}
 		INSIST(p == j->rawindex + rawbytes);
 
+		CHECK(journal_seek(j, sizeof(journal_rawheader_t)));
 		CHECK(journal_write(j, j->rawindex, rawbytes));
 	}
 failure: