Index: /branches/ide-1.0/ccl/examples/cocoa.lisp
===================================================================
--- /branches/ide-1.0/ccl/examples/cocoa.lisp	(revision 6743)
+++ /branches/ide-1.0/ccl/examples/cocoa.lisp	(revision 6744)
@@ -9,5 +9,5 @@
 (progn
   (require "FAKE-CFBUNDLE-PATH")
-  (fake-cfbundle-path "ccl:OpenMCL.app;Contents;MacOS;dppccl"))
+  (fake-cfbundle-path "ccl:OpenMCL.app;"))
 
 
@@ -89,5 +89,8 @@
   (ui-object-exit-backtrace-context o (car args)))
 
+
+
+
+
 (start-cocoa-application)
 
-