Index: /branches/ia32/lisp-kernel/x86-gc.c
===================================================================
--- /branches/ia32/lisp-kernel/x86-gc.c	(revision 9467)
+++ /branches/ia32/lisp-kernel/x86-gc.c	(revision 9468)
@@ -2490,6 +2490,6 @@
   natural i, offset;
 
-  i = ((unsigned short *)node)[2] - 2;
-  offset = node[i];
+  i = ((unsigned short *)node)[2];
+  offset = node[--i];
   while (offset) {
     *(LispObj *)(p + offset) = fn;