Index: /branches/x8664-call/ccl/level-0/X86/x86-utils.lisp
===================================================================
--- /branches/x8664-call/ccl/level-0/X86/x86-utils.lisp	(revision 6302)
+++ /branches/x8664-call/ccl/level-0/X86/x86-utils.lisp	(revision 6303)
@@ -125,5 +125,5 @@
     (jmp (% fn))
     (:tra @back-from-misc)
-    (recover-fn-from-ra0 @back-from-misc)
+    (recover-fn-from-rip)
     (getvheader obj imm1)
     (movb (% imm1.b) (% imm0.b))
@@ -170,5 +170,5 @@
     (jmp (% fn))
     (:tra @back-from-cons)
-    (recover-fn-from-ra0 @back-from-cons)
+    (recover-fn-from-rip)
     (addq ($ (- x8664::cons.size x8664::fulltag-cons)) (% obj))
     (jmp @test)
@@ -251,5 +251,5 @@
     (jmp (% fn))
     (:tra @back-from-misc)
-    (recover-fn-from-ra0 @back-from-misc)
+    (recover-fn-from-rip)
     (getvheader obj imm1)
     (movb (% imm1.b) (% imm0.b))
@@ -298,5 +298,5 @@
     (jmp (% fn))
     (:tra @back-from-cons)
-    (recover-fn-from-ra0 @back-from-cons)
+    (recover-fn-from-rip)
     (addq ($ (- x8664::cons.size x8664::fulltag-cons)) (% obj))
     (jmp @test)