Index: /trunk/source/cocoa-ide/cocoa-utils.lisp
===================================================================
--- /trunk/source/cocoa-ide/cocoa-utils.lisp	(revision 14893)
+++ /trunk/source/cocoa-ide/cocoa-utils.lisp	(revision 14894)
@@ -73,5 +73,14 @@
 
 (objc:defmethod (#/dealloc :void) ((self sequence-window-controller))
-  (call-next-method))
+  (let* ((table-view (slot-value self 'table-view))
+         (title (slot-value self 'title)))
+    (unless (%null-ptr-p table-view)
+      (setf (slot-value self 'table-view) (%null-ptr))
+      (#/release table-view))
+    (unless (%null-ptr-p title)
+      (setf (slot-value self 'title) (%null-ptr))
+      (#/release title))
+    (objc:remove-lisp-slots self)
+    (call-next-method)))
 
 (objc:defmethod (#/windowWillClose: :void) ((self sequence-window-controller)