Index: /branches/ide-1.0/ccl/examples/cocoa-application.lisp
===================================================================
--- /branches/ide-1.0/ccl/examples/cocoa-application.lisp	(revision 6792)
+++ /branches/ide-1.0/ccl/examples/cocoa-application.lisp	(revision 6793)
@@ -95,7 +95,10 @@
 (touch "ccl:openmcl.app;")
 
-(save-application "ccl:OpenMCL.app;Contents;MacOS;dppccl"
-                  :prepend-kernel t
-		  :application-class 'cocoa-application)
+(save-application
+ (make-pathname
+  :directory (translate-logical-pathname "ccl:OpenMCL.app;Contents;MacOS;")
+  :name (standard-kernel-name))
+ :prepend-kernel t
+ :application-class 'cocoa-application)
 
 ;;; If things go wrong, you might see some debugging information via