This fixes a rather obvious and silly oversight in my patch.
Luke
Index: src/register.c
===================================================================
RCS file: /cvs/public/parrot/src/register.c,v
retrieving revision 1.35
diff -u -r1.35 register.c
--- src/register.c 12 Jan 2004 09:50:26 -0000 1.35
+++ src/register.c 12 Jan 2004 19:54:36 -0000
@@ -107,7 +107,8 @@
struct RegisterChunkBuf* buf =
new_bufferlike_header(interpreter, sizeof(struct RegisterChunkBuf));
*buf = *chunk;
-
+ PObj_COW_CLEAR((PObj*)buf);
+
Parrot_block_DOD(interpreter);
Parrot_allocate_zeroed(interpreter, (PObj*)buf, stack->chunk_size);
Parrot_unblock_DOD(interpreter);