Index: /trunk/ccl/examples/objc-runtime.lisp
===================================================================
--- /trunk/ccl/examples/objc-runtime.lisp	(revision 5911)
+++ /trunk/ccl/examples/objc-runtime.lisp	(revision 5912)
@@ -549,4 +549,6 @@
   (setf (%get-ptr jmp-buf JB-rbx) throw-to-catch-frame
         (%get-ptr jmp-buf JB-rip) *setjmp-catch-rip-code*)
+  (setf (%get-unsigned-long jmp-buf JB-mxcsr) #x1f80
+        (%get-unsigned-long jmp-buf JB-fpcontrol) #x37f)
   (%set-object jmp-buf JB-RSP c-frame)
   (%set-object jmp-buf JB-RBP c-frame)