diff --git a/ansi-tests/fill-pointer.lsp b/ansi-tests/fill-pointer.lsp
index b318724b9f588f8bd9b8174224132fc4b8fdf782..4b08402439acbb15a77b3ded656d1acc666aa085 100644
--- a/ansi-tests/fill-pointer.lsp
+++ b/ansi-tests/fill-pointer.lsp
@@ -56,8 +56,10 @@
   t)
 
 (deftest fill-pointer.error.3
-  (signals-error (fill-pointer (make-array '(10) :fill-pointer nil))
-		 type-error)
+  (let ((a (make-array '(10) :fill-pointer nil)))
+    (if (array-has-fill-pointer-p a)
+	t
+      (eval `(signals-error (fill-pointer ',a) type-error))))
   t)
 
 (deftest fill-pointer.error.4