X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?a=blobdiff_plain;f=hbytes%2Fhook.c;h=cdcb246d2c742b945ad8444faad1cd1705529b01;hb=5d466de467f28ae6f7125bef086d141a7734a4ce;hp=0adb6b5d5804bb54e7669ef485987a69fb38a9a9;hpb=ac8c0b3b18075ae4273779544eda01c09cfb5145;p=chiark-tcl.git

diff --git a/hbytes/hook.c b/hbytes/hook.c
index 0adb6b5..cdcb246 100644
--- a/hbytes/hook.c
+++ b/hbytes/hook.c
@@ -61,10 +61,10 @@ int do_hbytes_rep_info(ClientData cd, Tcl_Interp *ip,
 }
 
 static void hbytes_t_dup(Tcl_Obj *src, Tcl_Obj *dup) {
-  objfreeir(dup);
   hbytes_array(OBJ_HBYTES(dup),
 	       hbytes_data(OBJ_HBYTES(src)),
 	       hbytes_len(OBJ_HBYTES(src)));
+  dup->typePtr= &hbytes_type;
 }
 
 static void hbytes_t_free(Tcl_Obj *o) {