diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index 5ce4226db..e5a51af18 100644
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,8 @@
+2003-08-17  Kevin Ryde  <user42@zip.com.au>
+
+	* boot-9.scm (while): Use a new key dynamically for each loop, so
+	break and continue associate to their loop even when recursing.
+
 2003-08-14  Kevin Ryde  <user42@zip.com.au>
 
 	* boot-9.scm (while): Rewrite, continue as proper escape, break
diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog
index de576426f..b2fa5bc00 100644
--- a/test-suite/ChangeLog
+++ b/test-suite/ChangeLog
@@ -1,3 +1,8 @@
+2003-08-17  Kevin Ryde  <user42@zip.com.au>
+
+	* tests/syntax.test (while): Exercise break and continue from
+	recursive nested loops.
+
 2003-08-14  Kevin Ryde  <user42@zip.com.au>
 
 	* tests/syntax.test (while): New tests.