Index: /trunk/ccl/examples/objc-runtime.lisp
===================================================================
--- /trunk/ccl/examples/objc-runtime.lisp	(revision 572)
+++ /trunk/ccl/examples/objc-runtime.lisp	(revision 573)
@@ -1227,5 +1227,5 @@
 
 ;;; Stub until BRIDGE is loaded
-(defun update-type-signatures-for-method (m) (declare (ignore m)))
+(defun update-type-signatures-for-method (m c) (declare (ignore m c)))
 
 
@@ -1254,5 +1254,5 @@
 		    (make-cstring typestring)
 		    (pref method :objc_method.method_imp) imp)
-              (update-type-signatures-for-method method)
+              (update-type-signatures-for-method method classptr)
 	      (return mlist)))
 	  (do* ((n (pref mlist :objc_method_list.method_count))
@@ -1296,5 +1296,5 @@
 			 :address classptr
 			 :void))
-	(update-type-signatures-for-method (%inc-ptr method 0))))))
+	(update-type-signatures-for-method (%inc-ptr method 0) classptr)))))
 
 (defvar *lisp-objc-methods* (make-hash-table :test #'eq))