Index: /trunk/ccl/lib/foreign-types.lisp
===================================================================
--- /trunk/ccl/lib/foreign-types.lisp	(revision 384)
+++ /trunk/ccl/lib/foreign-types.lisp	(revision 385)
@@ -57,5 +57,6 @@
   (dirlist (make-dll-header))
   (attributes #+darwinppc-target '(:signed-char :struct-by-value :prepend-underscores)
-	      #+linuxppc-target ()))
+	      #+linuxppc-target ())
+  (ordinal->type (make-array 100 :fill-pointer 0)))
 
 (defvar *host-ftd* (make-ftd))