Index: /trunk/source/lisp-kernel/gc-common.c
===================================================================
--- /trunk/source/lisp-kernel/gc-common.c	(revision 15143)
+++ /trunk/source/lisp-kernel/gc-common.c	(revision 15144)
@@ -473,5 +473,5 @@
     pair_tag = fulltag_of(pair);
     if ((is_node_fulltag(pair_tag)) &&
-        ((dnode = gc_area_dnode(pair_tag)) < GCndnodes_in_area) &&
+        ((dnode = gc_area_dnode(pair)) < GCndnodes_in_area) &&
         (! ref_bit(markbits,dnode))) {
       if (pair_tag == fulltag_cons) {