Index: /trunk/ccl/examples/bridge.lisp
===================================================================
--- /trunk/ccl/examples/bridge.lisp	(revision 5935)
+++ /trunk/ccl/examples/bridge.lisp	(revision 5936)
@@ -459,7 +459,5 @@
                (lookup-objc-message-info message-name info)
                (postprocess-objc-message-info info))
-           *objc-message-info*)
-  ;; Update info about init messages.
-  (register-objc-init-messages))
+           *objc-message-info*))