diff --git a/ansi-tests/cl-symbols.lsp b/ansi-tests/cl-symbols.lsp
index 6ea399ab6f4646b5cb2eb3a7129a2bb55a08361e..3d24646b362d4456da694eb7363a614751e02f5e 100644
--- a/ansi-tests/cl-symbols.lsp
+++ b/ansi-tests/cl-symbols.lsp
@@ -1026,7 +1026,7 @@
 ;;; as their values (and are constant).  Symbols that are
 ;;; merely used in KEYWORD but not present there are exempt.
 
-(deftest keyword-1
+(deftest keyword-behavior
   (let ((result nil)
 	(keyword-package (find-package "KEYWORD")))
     (do-symbols (s keyword-package result)