Index: /branches/mb-coverage-merge/lisp-kernel/ppc-spentry.s
===================================================================
--- /branches/mb-coverage-merge/lisp-kernel/ppc-spentry.s	(revision 8551)
+++ /branches/mb-coverage-merge/lisp-kernel/ppc-spentry.s	(revision 8552)
@@ -947,4 +947,5 @@
 /* because nargs < 32K.  */
 _spentry(gvector)
+        __(subi nargs,nargs,node_size)
 	__(ldrx(arg_z,vsp,nargs))
 	__(unbox_fixnum(imm0,arg_z))
Index: /branches/mb-coverage-merge/lisp-kernel/x86-spentry64.s
===================================================================
--- /branches/mb-coverage-merge/lisp-kernel/x86-spentry64.s	(revision 8551)
+++ /branches/mb-coverage-merge/lisp-kernel/x86-spentry64.s	(revision 8552)
@@ -2084,5 +2084,6 @@
 /* objects.   */
 _spentry(gvector)
-	__(movzwl %nargs,%nargs_l)
+	__(movzwl %nargs,%nargs_l)	
+	__(subl $node_size,%nargs_l)
 	__(movq (%rsp,%nargs_q),%imm0)	/* boxed subtype   */
 	__(sarq $fixnumshift,%imm0)