Index: /trunk/ccl/examples/cocoa-editor.lisp
===================================================================
--- /trunk/ccl/examples/cocoa-editor.lisp	(revision 877)
+++ /trunk/ccl/examples/cocoa-editor.lisp	(revision 878)
@@ -1332,5 +1332,8 @@
       (let* ((params (make-objc-instance 'ns:ns-array
                                          :with-objects paramptrs
-                                         :count 2)))
+                                         :count 2))
+             (*debug-io* *typeout-stream*))
+        (stream-clear-output *debug-io*)
+        (print-call-history :detailed-p nil)
         (send frame
               :perform-selector-on-main-thread