Index: /branches/ide-1.0/ccl/examples/cocoa-application.lisp
===================================================================
--- /branches/ide-1.0/ccl/examples/cocoa-application.lisp	(revision 6795)
+++ /branches/ide-1.0/ccl/examples/cocoa-application.lisp	(revision 6796)
@@ -55,5 +55,5 @@
 
 
-(defclass cocoa-application (lisp-development-system)
+(defclass cocoa-application (application)
     ())
 
@@ -68,4 +68,5 @@
 (defmethod toplevel-function ((a cocoa-application) init-file)
   (declare (ignore init-file))
+  (call-next-method)
   (reset-ccl-directory)
   (start-cocoa-application))
@@ -97,5 +98,5 @@
 (save-application
  (make-pathname
-  :directory (translate-logical-pathname "ccl:OpenMCL.app;Contents;MacOS;")
+  :directory (pathname-directory (translate-logical-pathname "ccl:OpenMCL.app;Contents;MacOS;"))
   :name (standard-kernel-name))
  :prepend-kernel t