diff --git a/test-suite/ChangeLog b/test-suite/ChangeLog
index a35e29704..803cb44aa 100644
--- a/test-suite/ChangeLog
+++ b/test-suite/ChangeLog
@@ -1,3 +1,8 @@
+2006-10-26  Ludovic Courtès  <ludovic.courtes@laas.fr>
+
+	* tests/srfi-14.test (Latin-1)[char-set:punctuation]: Fixed a
+	typo: `thrown' instead of `throw'.
+
 2006-10-05  Kevin Ryde  <user42@zip.com.au>
 
 	* tests/ftw.test: New file.
diff --git a/test-suite/tests/srfi-14.test b/test-suite/tests/srfi-14.test
index 5c3a3f509..fc6307149 100644
--- a/test-suite/tests/srfi-14.test
+++ b/test-suite/tests/srfi-14.test
@@ -290,7 +290,7 @@
 
   (pass-if "char-set:punctuation (membership)"
      (if (not %latin1)
-	 (thrown 'unresolved)
+	 (throw 'unresolved)
 	 (let ((punctuation (char-set->list char-set:punctuation)))
 	   (every? (lambda (8-bit-char)
 		     (memq 8-bit-char punctuation))