Index: /branches/ide-1.0/ccl/examples/objc-support.lisp
===================================================================
--- /branches/ide-1.0/ccl/examples/objc-support.lisp	(revision 6668)
+++ /branches/ide-1.0/ccl/examples/objc-support.lisp	(revision 6669)
@@ -218,5 +218,5 @@
   ;;; this condition.
 
-   (dbg (format nil "~a" c))
+  ;; (dbg (format nil "~a" c))
   ;;(#_NSLog #@"Lisp exception: %@" :id (%make-nsstring (format nil "~a" c)))
   (make-instance 'ns-lisp-exception :condition c))
@@ -246,4 +246,5 @@
   ;; as the canonical return value register and used to pass the
   ;; first argument on PPC.)
+  (process-debug-condition *current-process* condition (%get-frame-ptr))
   (let* ((addr (%reference-external-entry-point (load-time-value (external "__NSRaiseError")))))
     (if (typep addr 'fixnum)
@@ -271,4 +272,5 @@
   ;; original return address in the %xmm0 slot, and force a return to
   ;; the trampoline code above.
+  (process-debug-condition *current-process* condition (%get-frame-ptr))
   (setf (%get-ptr return-value-pointer -8) (ns-exception condition)
         (%get-ptr return-value-pointer -16) (%get-ptr return-address-pointer 0)