diff --git a/ansi-tests/fill.lsp b/ansi-tests/fill.lsp
index 30d1a5c8437c576788a97d86244f8cd04df89e5e..3259d5843a524022c80e7d6b87632796539465b3 100644
--- a/ansi-tests/fill.lsp
+++ b/ansi-tests/fill.lsp
@@ -298,7 +298,7 @@
 
 (deftest fill.string.9
   (let* ((s1 (make-array '(8) :element-type 'character
-			 :initial-element #\a
+			 :initial-element #\z
 			 :fill-pointer 4))
 	 (s2 (fill s1 #\a)))
     (and (eqt s1 s2)
@@ -308,7 +308,7 @@
 
 (deftest fill.string.10
   (let* ((s1 (make-array '(8) :element-type 'base-char
-			 :initial-element #\a
+			 :initial-element #\z
 			 :fill-pointer 4))
 	 (s2 (fill s1 #\a)))
     (and (eqt s1 s2)