diff --git a/ansi-tests/find-package.lsp b/ansi-tests/find-package.lsp
index eb0da058804cfb8a98edea97219360b0832fdd64..2c9569ca989a26cccc31906e18f70bcf69d7985f 100644
--- a/ansi-tests/find-package.lsp
+++ b/ansi-tests/find-package.lsp
@@ -115,7 +115,7 @@
   t)
 
 (deftest find-package.16
-  (let* ((name (make-array '(10) :initial-contents "KEYWORDXYZ"
+  (let* ((name (make-array '(7) :initial-contents "KEYWORD"
 			   :adjustable t
 			   :element-type 'base-char))
 	 (p (find-package name)))