Index: /trunk/ccl/level-0/X86/x86-misc.lisp
===================================================================
--- /trunk/ccl/level-0/X86/x86-misc.lisp	(revision 5816)
+++ /trunk/ccl/level-0/X86/x86-misc.lisp	(revision 5817)
@@ -426,8 +426,8 @@
   (unbox-fixnum disp imm1)
   @again
-  (movq (@ (% node) (% disp)) (% rax))
+  (movq (@ (% node) (% imm1)) (% rax))
   (lea (@ (% rax) (% by)) (% arg_z))
   (lock)
-  (cmpxchgq (% arg_z) (@ (% node) (% disp)))
+  (cmpxchgq (% arg_z) (@ (% node) (% imm1)))
   (jne @again)
   (single-value-return))