diff --git a/ansi-tests/psetf.lsp b/ansi-tests/psetf.lsp
index 66001aa0d73560b99e71078ac8a765c86507fd78..daf546f75d94b4b314f6d823e6f83b0cad6b926f 100644
--- a/ansi-tests/psetf.lsp
+++ b/ansi-tests/psetf.lsp
@@ -174,7 +174,7 @@
   ((a . 1)) ((c . 2)))
 
 ;;; TODO: c*r accessors with > 2 a/d
-;;; TODO: first,...,tenth
+;;; TODO: third,...,tenth
 
 (deftest psetf.18
   (let* ((x (vector 'a 'b))