Index: /trunk/source/cocoa-ide/cocoa-listener.lisp
===================================================================
--- /trunk/source/cocoa-ide/cocoa-listener.lisp	(revision 15178)
+++ /trunk/source/cocoa-ide/cocoa-listener.lisp	(revision 15179)
@@ -260,5 +260,5 @@
      (backtrace-contexts :initform nil
                          :accessor cocoa-listener-process-backtrace-contexts)
-     (window :initarg :listener-window :reader cocoa-listener-process-window)))
+     (window :initarg :listener-window :initform nil :reader cocoa-listener-process-window)))
   
 (defloadvar *first-listener* t)