Index: /branches/1.2/devel/source/level-0/X86/x86-misc.lisp
===================================================================
--- /branches/1.2/devel/source/level-0/X86/x86-misc.lisp	(revision 8136)
+++ /branches/1.2/devel/source/level-0/X86/x86-misc.lisp	(revision 8137)
@@ -720,5 +720,5 @@
     (movq (@ (ash (foreign-record-field-offset (%find-foreign-record-type-field (parse-foreign-type '(:struct :__mcontext)) :mc_r11)) -3) (% arg_y)) (% r11))
     (movq (@ (ash (foreign-record-field-offset (%find-foreign-record-type-field (parse-foreign-type '(:struct :__mcontext)) :mc_rbp)) -3) (% arg_y)) (% rbp))
-    (movq (@ (ash (foreign-record-field-offset (%find-foreign-record-type-field (parse-foreign-type '(:struct :__mcontext)) :mc_rsp) -3) (% arg_y)) (% rsp))))
+    (movq (@ (ash (foreign-record-field-offset (%find-foreign-record-type-field (parse-foreign-type '(:struct :__mcontext)) :mc_rsp)) -3) (% arg_y)) (% rsp)))
   #+darwinx8664-target
   (progn