Index: /branches/ide-1.0/ccl/examples/objc-runtime.lisp
===================================================================
--- /branches/ide-1.0/ccl/examples/objc-runtime.lisp	(revision 6779)
+++ /branches/ide-1.0/ccl/examples/objc-runtime.lisp	(revision 6780)
@@ -2829,19 +2829,5 @@
 #+apple-objc-2.0
 (defmacro with-ns-exceptions-as-errors (&body body)
-  (let* ((data (gensym))
-         (cframe (gensym)))
-    `(rletZ ((,data :_objc_exception_data))
-      (unwind-protect
-           (progn
-             (#_objc_exception_try_enter ,data)
-             (catch ,data
-               (with-c-frame ,cframe
-                 (%associate-jmp-buf-with-catch-frame
-                  ,data
-                  (%fixnum-ref (%current-tcr) target::tcr.catch-top)
-                  ,cframe)
-                 (progn
-                   ,@body))))
-        (check-ns-exception ,data)))))
+  `(progn ,@body))