Index: /trunk/ccl/examples/bridge.lisp
===================================================================
--- /trunk/ccl/examples/bridge.lisp	(revision 5887)
+++ /trunk/ccl/examples/bridge.lisp	(revision 5888)
@@ -756,6 +756,6 @@
           (error "The message ~S must be sent using SEND/STRET" msg)
           (if (null super)
-            `(objc-message-send-stret ,s ,o ,msg ,@arglist :void)
-            `(objc-message-send-super-stret ,s ,super ,msg ,@arglist :void)))
+            `(objc-message-send-stret ,s ,o ,msg ,@arglist ,(car (objc-method-info-signature method-info)))
+            `(objc-message-send-super-stret ,s ,super ,msg ,@arglist ,(car (objc-method-info-signature method-info)))))
         (if s
           ;; STRET provided but not required