From 2e503afaf7acc89f9fa0a9ae5ff890ebccde7f40 Mon Sep 17 00:00:00 2001
From: Han-Wen Nienhuys <hanwen@lilypond.org>
Date: Mon, 18 Aug 2008 11:02:43 -0300
Subject: [PATCH] Fix sizeof() nitpick for goops corruption.

---
 libguile/goops.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/goops.c b/libguile/goops.c
index cc610fa9c..8f298c539 100644
--- a/libguile/goops.c
+++ b/libguile/goops.c
@@ -1709,7 +1709,7 @@ go_to_hell (void *o)
   if (n_hell >= hell_size)
     {
       hell_size *= 2;
-      hell = scm_realloc (hell, hell_size * sizeof(scm_t_bits));
+      hell = scm_realloc (hell, hell_size * sizeof(*hell));
     }
   hell[n_hell++] = SCM_STRUCT_DATA (obj);
   scm_unlock_mutex (hell_mutex);