Index: /trunk/source/cocoa-ide/cocoa-listener.lisp
===================================================================
--- /trunk/source/cocoa-ide/cocoa-listener.lisp	(revision 12786)
+++ /trunk/source/cocoa-ide/cocoa-listener.lisp	(revision 12787)
@@ -469,4 +469,5 @@
         (let* ((layout (#/objectAtIndex: layout-managers i)))
           (#/setBackgroundLayoutEnabled: layout nil))))
+    (#/setDelegate: window controller)
     (#/setDelegate: (text-pane-text-view (slot-value window 'pane)) self)
     (#/setShouldCascadeWindows: controller nil)