Index: /trunk/ccl/examples/bridge.lisp
===================================================================
--- /trunk/ccl/examples/bridge.lisp	(revision 5938)
+++ /trunk/ccl/examples/bridge.lisp	(revision 5939)
@@ -541,4 +541,5 @@
       (unless (= (length args) (objc-message-info-req-args message-info))
         (error "Message ~S requires ~a ~d args, but ~d were provided."
+               msg
                (if vargs "at least" "exactly")
                (objc-message-info-req-args message-info)