Index: /trunk/ccl/examples/cocoa.lisp
===================================================================
--- /trunk/ccl/examples/cocoa.lisp	(revision 703)
+++ /trunk/ccl/examples/cocoa.lisp	(revision 704)
@@ -11,8 +11,7 @@
 (fake-cfbundle-path "ccl:OpenMCL.app;Contents;MacOS;dppccl"))
 
-(defclass cocoa-ide-ui-object (ui-object)
-    ())
 
-(setf (application-ui-object *application*) (make-instance 'cocoa-ide-ui-object))
+
+
 
 (require "OBJC-SUPPORT")