diff --git a/ansi-tests/print-array.lsp b/ansi-tests/print-array.lsp
index 4b98503cf6b8b702e638b3df14d87da9faf5f1e4..5f74ff67b1ffeafb98de28d4eb703bb8f63dd201 100644
--- a/ansi-tests/print-array.lsp
+++ b/ansi-tests/print-array.lsp
@@ -87,7 +87,7 @@
 (deftest print.array.0.12
   (loop for type0 in '(short-float single-float double-float long-float float)
 	for type = `(complex ,type0)
-	for zero = (complex (coerce 0 type0))
+	for zero = (complex (coerce 0.0s0 type0))
 	for a = (make-array nil :initial-element zero
 			    :element-type type)
 	nconc
@@ -133,7 +133,7 @@
 				   long-float float real)
 	for type = `(complex ,type0)
 	for a = (make-array nil :element-type type
-			    :initial-element (complex (coerce 3 type0)))
+			    :initial-element (complex 0 (coerce 3 type0)))
 	for result = (write-to-string a :readably nil :array nil)
 	unless (string= (subseq result 0 2) "#<")
 	collect (list type result))
@@ -391,7 +391,7 @@
 				   long-float float real)
 	for type = `(complex ,type0)
 	for a = (make-array '(13 5) :element-type type
-			    :initial-element (complex (coerce 3 type0)))
+			    :initial-element (complex 0 (coerce 3 type0)))
 	for result = (write-to-string a :readably nil :array nil)
 	unless (string= (subseq result 0 2) "#<")
 	collect (list type result))