Index: /branches/objc-gf/ccl/level-1/l1-boot-2.lisp
===================================================================
--- /branches/objc-gf/ccl/level-1/l1-boot-2.lisp	(revision 6049)
+++ /branches/objc-gf/ccl/level-1/l1-boot-2.lisp	(revision 6050)
@@ -227,5 +227,6 @@
 
       (bin-load-provide "FOREIGN-TYPES" "foreign-types")
-
+      (install-standard-foreign-types *host-ftd*)
+      
       #+(and ppc32-target linux-target)
       (bin-load-provide "FFI-LINUXPPC32" "ffi-linuxppc32")
@@ -244,4 +245,6 @@
       
       (bin-load-provide "DB-IO" "db-io")
+
+      (canonicalize-foreign-type-ordinals *host-ftd*)
       
       (bin-load-provide "CASE-ERROR" "case-error")