Index: /trunk/ccl/lib/foreign-types.lisp
===================================================================
--- /trunk/ccl/lib/foreign-types.lisp	(revision 322)
+++ /trunk/ccl/lib/foreign-types.lisp	(revision 323)
@@ -1590,5 +1590,5 @@
 		    (if (<= bits 64)
 		      :unsigned-doubleword)))))))
-	 (foreign-record-type
+	 ((or foreign-record-type foreign-array-type)
 	  (let* ((bits (ensure-foreign-type-bits ftype)))
 	    (ceiling bits 32))))