Index: /trunk/ccl/level-0/l0-array.lisp
===================================================================
--- /trunk/ccl/level-0/l0-array.lisp	(revision 288)
+++ /trunk/ccl/level-0/l0-array.lisp	(revision 289)
@@ -145,5 +145,5 @@
              (logbitp $arh_fill_bit (the fixnum (%svref array ppc32::vectorH.flags-cell))))
       (%svref array ppc32::vectorH.logsize-cell)
-      (%err-disp $XNOFILLPTR array))))
+      (report-bad-arg array '(satisfies array-has-fill-pointer-p)))))
 
 (defun set-fill-pointer (array value)