Index: /trunk/source/cocoa-ide/cocoa-listener.lisp
===================================================================
--- /trunk/source/cocoa-ide/cocoa-listener.lisp	(revision 14660)
+++ /trunk/source/cocoa-ide/cocoa-listener.lisp	(revision 14661)
@@ -305,5 +305,5 @@
 (objc:defmethod (#/windowShouldClose: #>BOOL) ((w hemlock-listener-frame)
                                                sender)
-  (let* ((doc (#/document w)))
+  (let* ((doc (#/document (#/windowController w))))
     (if (or (%null-ptr-p doc)
             (and (hemlock-document-process doc)