1 files changed, 1 insertions, 0 deletions
diff --git a/scheme.c b/scheme.c
index 27beb3a..1801ffc 100644
--- a/scheme.c
+++ b/scheme.c
@@ -1151,6 +1151,7 @@ static INLINE pointer oblist_find_by_name(scheme *sc, const char *name)
 /* returns the new symbol */
 static pointer oblist_add_by_name(scheme *sc, const char *name)
 {
+#define oblist_add_by_name_allocates	3
   pointer x;
 
   x = immutable_cons(sc, mk_string(sc, name), sc->NIL);