Index: /trunk/ccl/examples/bridge.lisp
===================================================================
--- /trunk/ccl/examples/bridge.lisp	(revision 5901)
+++ /trunk/ccl/examples/bridge.lisp	(revision 5902)
@@ -43,5 +43,8 @@
 
 (defun method-typestring (method)
-  (%get-cstring (pref method :objc_method.method_types)))
+  (%get-cstring #+apple-objc-2.0
+                (#_method_getTypeEncoding method)
+                #-apple-objc-2.0
+                (pref method :objc_method.method_types)))