{
register const char *cp = name;
while(*cp && *cp!=':')
stakputc(*cp++);
cp++;
stakwrite(name,cp-name);
len = staktell()-offset;
stakputc(0);
}