Index: /trunk/ccl/examples/cocoa-editor.lisp
===================================================================
--- /trunk/ccl/examples/cocoa-editor.lisp	(revision 855)
+++ /trunk/ccl/examples/cocoa-editor.lisp	(revision 856)
@@ -1175,4 +1175,5 @@
   (:metaclass ns:+ns-object))
 
+
 (defun double-%-in (string)
   ;; Replace any % characters in string with %%, to keep them from
@@ -1281,4 +1282,10 @@
 
 (define-objc-method ((:void close) hemlock-frame)
+  (let* ((content-view (send self 'content-view))
+         (subviews (send content-view 'subviews)))
+    (do* ((i (1- (send subviews 'count)) (1- i)))
+         ((< i 0))
+      (send (send subviews :object-at-index i)
+            'remove-from-superview-without-needing-display)))
   (let* ((proc (slot-value self 'command-thread)))
     (when proc