Index: /branches/ide-1.0/ccl/examples/objc-runtime.lisp
===================================================================
--- /branches/ide-1.0/ccl/examples/objc-runtime.lisp	(revision 6682)
+++ /branches/ide-1.0/ccl/examples/objc-runtime.lisp	(revision 6683)
@@ -2742,5 +2742,6 @@
                 (defcallback ,impname ( :error-return (condition objc-callback-error-return) ,@(arglist))
                   (declare (ignorable ,self-name ,cmd)
-                           (unsettable ,self-name))
+                           (unsettable ,self-name)
+                           ,@(unless class-p `((type ,lisp-class-name ,self-name))))
                   ,@decls
                   ,@body)