diff --git a/ansi-tests/loop5.lsp b/ansi-tests/loop5.lsp
index 7164d8b86597e6d596482d0a552b0734164ba71d..325765f69ad1be6803e9ce661f71875e28e7d85f 100644
--- a/ansi-tests/loop5.lsp
+++ b/ansi-tests/loop5.lsp
@@ -32,7 +32,7 @@
   (#\a #\b #\c))
 
 (deftest loop.5.7
-  (let ((x (make-array '(4) :initial-elements "abcd" :element-type 'base-char)))
+  (let ((x (make-array '(4) :initial-contents "abcd" :element-type 'base-char)))
     (loop for e across (the base-string x) collect e))
   (#\a #\b #\c #\d))