Index: /trunk/ccl/examples/objc-support.lisp
===================================================================
--- /trunk/ccl/examples/objc-support.lisp	(revision 5936)
+++ /trunk/ccl/examples/objc-support.lisp	(revision 5937)
@@ -402,5 +402,7 @@
                         (pushnew path *extension-framework-paths*
                                  :test #'equalp)
-                        (map-objc-classes))
+                        (map-objc-classes)
+                        ;; Update info about init messages.
+                        (register-objc-init-messages))
                       (return winning)))))))))))