1.1--- a/sys/src/libc/port/pool.c
     1.2+++ b/sys/src/libc/port/pool.c
     1.3@@ -520,10 +520,10 @@ freefromfront(Pool *p, Alloc *b, ulong s
     1.4 	skip = skip&~(p->quantum-1);
     1.5 	if(skip >= 0x1000 || (skip >= b->size>>2 && skip >= MINBLOCKSIZE && skip >= p->minblock)){
     1.6 		bb = (Alloc*)((uchar*)b+skip);
     1.7+		bb->magic = UNALLOC_MAGIC;
     1.8 		blocksetsize(bb, b->size-skip);
     1.9-		bb->magic = UNALLOC_MAGIC;
    1.10+		b->magic = UNALLOC_MAGIC;
    1.11 		blocksetsize(b, skip);
    1.12-		b->magic = UNALLOC_MAGIC;
    1.13 		pooladd(p, b);
    1.14 		return bb;
    1.15 	}