diff --git a/ansi-tests/char-schar.lsp b/ansi-tests/char-schar.lsp
index fc07c31c2e1ccaf22c6700b0ed7d82a3ba320abb..a66ed60e9bec360339031fff51ad92e8edd70382 100644
--- a/ansi-tests/char-schar.lsp
+++ b/ansi-tests/char-schar.lsp
@@ -62,7 +62,7 @@
     (setf (char s 5) #\X)
     (setf (fill-pointer s) 6)
     s)
-  "abcXef")
+  "abcdeX")
 
 (deftest char.9
   (let ((s (make-string 5 :initial-element #\a