Index: /branches/ide-1.0/ccl/examples/cocoa-backtrace.lisp
===================================================================
--- /branches/ide-1.0/ccl/examples/cocoa-backtrace.lisp	(revision 6706)
+++ /branches/ide-1.0/ccl/examples/cocoa-backtrace.lisp	(revision 6707)
@@ -233,7 +233,13 @@
         (setf (cocoa-listener-process-backtrace-contexts proc)
               (cdr (cocoa-listener-process-backtrace-contexts proc)))
-        (let* ((window (bt.dialog context)))
-          (when window
-            (#/performSelectorOnMainThread:withObject:waitUntilDone: window (@selector #/close)  +null-ptr+ t)))))))
+        (let* ((btwindow (prog1 (bt.dialog context)
+                           (setf (bt.dialog context) nil)))
+               (restartswindow
+                (prog1 (car (bt.restarts context))
+                           (setf (bt.restarts context) nil))))
+          (when btwindow
+            (#/performSelectorOnMainThread:withObject:waitUntilDone: btwindow (@selector #/close)  +null-ptr+ t))
+          (when restartswindow
+            (#/performSelectorOnMainThread:withObject:waitUntilDone: restartswindow (@selector #/close)  +null-ptr+ t)))))))