Index: /trunk/ccl/examples/objc-runtime.lisp
===================================================================
--- /trunk/ccl/examples/objc-runtime.lisp	(revision 566)
+++ /trunk/ccl/examples/objc-runtime.lisp	(revision 567)
@@ -1521,5 +1521,5 @@
 		   ;; so that we can find category methods via
 		   ;; #_class_getInstanceMethod.
-		   (external-call "__class_lookupMethodAndLoadCache"
+		   (external-call "_class_lookupMethod"
 				  :id class
 				  :<SEL> sel