From 3d3038baecfb590b905fa4dbd5411ed9420c70ad Mon Sep 17 00:00:00 2001
From: Kevin Tew <tewk@racket-lang.org>
Date: Tue, 26 Jan 2010 22:04:24 +0000
Subject: [PATCH] gc debugging fix

svn: r17845
---
 src/mzscheme/gc2/newgc.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/gc2/newgc.c b/src/mzscheme/gc2/newgc.c
index 17561ff814..01566ce8a5 100644
--- a/src/mzscheme/gc2/newgc.c
+++ b/src/mzscheme/gc2/newgc.c
@@ -2978,7 +2978,7 @@ static void fprintf_debug(NewGC *gc, const char *msg, objhead *info, FILE* file,
           fprintf(file, "RMP %p already freed and out of bounds\n", SCHEME_PATH_VAL(obj));
         }
       default:
-        fprintf_buffer(file, ((char *)obj), (info->size * WORD_SIZE));
+        fprintf_buffer(file, ((char *)obj), (info->size * WORD_SIZE) - sizeof(objhead));
         break;
     }
   }