Index: /trunk/source/cocoa-ide/ide-bundle.lisp
===================================================================
--- /trunk/source/cocoa-ide/ide-bundle.lisp	(revision 12830)
+++ /trunk/source/cocoa-ide/ide-bundle.lisp	(revision 12831)
@@ -70,5 +70,4 @@
 ;;; and figuring out how to get make to do so - is left as an exercise.
 (defun install-altconsole (bundle-path)
-  #+cocotron (declare (ignore bundle-path))
   #-cocotron
   (let* ((altconsole-path (merge-pathnames ";Contents;Resources;AltConsole.app;" bundle-path))
@@ -90,5 +89,11 @@
     (recursive-copy-directory build-bundle-path altconsole-path)
     (ccl::touch altconsole-path)
-    t))
+    t)
+  #+cocotron
+  (let* ((path (probe-file "ccl:cocotron;WaltConsole;WaltConsole.exe")))
+    (when path
+      (copy-file path (merge-pathnames ";Contents;Resources;WaltConsole.exe" bundle-path))
+      t))
+  )
 
 (progn