Index: /trunk/source/cocoa-ide/cocoa-window.lisp
===================================================================
--- /trunk/source/cocoa-ide/cocoa-window.lisp	(revision 12706)
+++ /trunk/source/cocoa-ide/cocoa-window.lisp	(revision 12707)
@@ -125,5 +125,6 @@
 #+windows-target
 (defun connect-to-console-window (process)
-  (when (#_AllocConsole)
+  (#_AllocConsole)
+  (when (not (%null-ptr-p (#_GetStdHandle #$STD_OUTPUT_HANDLE)))
     (flet ((set-lisp-stream-fd (stream fd)
              (setf (ccl::ioblock-device (ccl::stream-ioblock stream t)) fd)))