copy-array -> processor fault, illegal code??

Hello,

with lispworks 4.2.7 professional the following gives a processor fault.

(defun copy-array (array)
      (adjust-array (make-array (array-dimensions array)
                                :displaced-to array
                                :element-type (array-element-type array))
                    (array-dimensions array)
                    :displaced-to nil))

(defun test ()
  (dotimes (x 10000)
    (copy-array (make-array (list 30 30) :element-type '(unsigned-byte 
4)))))

(test)

Is something illegal with the above code?

I have assumed that this is not an array initialize problem as the created 
array is packed and so all possible bit patterns are legal values in the 
array, but maybe this assumption is wrong?

Rene.

_________________________________________________________________
Protect your PC - get McAfee.com VirusScan Online 
http://clinic.mcafee.com/clinic/ibuy/campaign.asp?cid=3963