Index: /trunk/source/objc-bridge/objc-runtime.lisp
===================================================================
--- /trunk/source/objc-bridge/objc-runtime.lisp	(revision 14638)
+++ /trunk/source/objc-bridge/objc-runtime.lisp	(revision 14639)
@@ -3218,5 +3218,6 @@
                  (%associate-jmp-buf-with-catch-frame
                   ,xframe
-                  (%fixnum-ref (%current-tcr) target::tcr.catch-top)
+                  (%fixnum-ref (%current-tcr) (- target::tcr.catch-top
+						 target::tcr-bias))
                   ,cframe)
                  (progn