Index: /trunk/ccl/examples/objc-support.lisp
===================================================================
--- /trunk/ccl/examples/objc-support.lisp	(revision 836)
+++ /trunk/ccl/examples/objc-support.lisp	(revision 837)
@@ -24,5 +24,7 @@
 	     (%get-ptr buffer (the fixnum  (ash i ppc32::word-shift))))))))))
   (reset-objc-class-count)
-  (map-objc-classes))
+  (map-objc-classes)
+  (canonicalize-type-signature-classes)
+)
 
 #+gnu-objc