Index: /trunk/ccl/lib/foreign-types.lisp
===================================================================
--- /trunk/ccl/lib/foreign-types.lisp	(revision 407)
+++ /trunk/ccl/lib/foreign-types.lisp	(revision 408)
@@ -58,5 +58,5 @@
   (attributes #+darwinppc-target '(:signed-char :struct-by-value :prepend-underscores)
 	      #+linuxppc-target ())
-  (ordinal->type (make-array 100 :fill-pointer 1)))
+  (ordinal->type (make-array 100 :fill-pointer 1 :initial-element nil)))
 
 (defvar *host-ftd* (make-ftd))