Index: /branches/ide-1.0/ccl/examples/cocoa-window.lisp
===================================================================
--- /branches/ide-1.0/ccl/examples/cocoa-window.lisp	(revision 6761)
+++ /branches/ide-1.0/ccl/examples/cocoa-window.lisp	(revision 6762)
@@ -122,4 +122,5 @@
                 condition)))
       (unless (member c *event-process-reported-conditions*)
+        (push c *event-process-reported-conditions*)
         (catch 'need-a-catch-frame-for-backtrace
           (let* ((*debug-in-event-process* nil)