/* -*-c-*-
*
- * $Id: atom.c,v 1.5 2004/04/08 01:36:11 mdw Exp $
+ * $Id$
*
* Atom management
*
a = x_alloc(t->t.t.a, sizeof(atom) + sz);
a->b.name = (char *)(a + 1);
memcpy(a->b.name, buf, sz);
- a->b.len = sz;
+ a->b.len = sz - 1;
a->b.b.hash = UNIHASH(&unihash_global, buf, sz);
a->f = ATOMF_GENSYM;
a->b.b.next = t->g;