Index: /trunk/source/cocoa-ide/start.lisp
===================================================================
--- /trunk/source/cocoa-ide/start.lisp	(revision 15364)
+++ /trunk/source/cocoa-ide/start.lisp	(revision 15365)
@@ -32,5 +32,5 @@
   (let* ((path (ccl::ccl-directory))
          (dir (pathname-directory path)))
-    (if (equalp (last dir 2) '("Contents" "MacOS"))
+    (if (equalp (last dir 3) '("Contents" "Resources" "ccl"))
         (make-pathname :directory (butlast dir 3))
         path)))
@@ -137,12 +137,25 @@
   #-cocotron
   (ccl::touch bundle-path)
-
-  (let ((image-file (make-pathname :name (ccl::standard-kernel-name) :type nil :version nil
-				   :defaults (merge-pathnames (format nil";Contents;~a;" #+darwin-target "MacOS" #+cocotron "Windows")  bundle-path))))
+  (let ((kernel-file (make-pathname :name (ccl::standard-kernel-name) 
+                                    :type nil 
+                                    :version nil 
+                                    :defaults (merge-pathnames 
+                                               #+darwin-target
+					       ";Contents;MacOS;"
+					       #+cocotron
+					       ";Contents;Windows;"
+                                               bundle-path))) 
+        (image-file (make-pathname :name (ccl::standard-kernel-name) 
+                                   :type "image" 
+                                   :version nil 
+                                   :defaults (merge-pathnames 
+                                              ";Contents;Resources;ccl;" 
+                                              bundle-path)))) 
     (format *error-output* "~2%Saving application to ~a~2%" (truename bundle-path))
     (force-output *error-output*)
     (ensure-directories-exist image-file)
+    (ccl:copy-file (ccl::kernel-path) kernel-file :if-exists :supersede 
+                   :preserve-attributes t)
     (save-application image-file
-		      :prepend-kernel t
 		      :application-class 'cocoa-ide
 		      #+windows-target #+windows-target