Index: /branches/x8664-call/ccl/lisp-kernel/x86-gc.c
===================================================================
--- /branches/x8664-call/ccl/lisp-kernel/x86-gc.c	(revision 6333)
+++ /branches/x8664-call/ccl/lisp-kernel/x86-gc.c	(revision 6334)
@@ -1494,4 +1494,9 @@
       (! ref_bit(GCmarkbits,dnode))) {
     if (tag_of(rip) == tag_tra) {
+      mark_root(rip);
+    } else if ((fulltag_of(rip) == fulltag_function) &&
+               (*((unsigned short *)rip) == RECOVER_FN_FROM_RIP_WORD0) &&
+               (*((unsigned char *)(rip+2)) == RECOVER_FN_FROM_RIP_BYTE2) &&
+               ((*(int *) (rip+3))) == -RECOVER_FN_FROM_RIP_LENGTH) {
       mark_root(rip);
     } else {