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

diff --git a/hbytes/ulongs.c b/hbytes/ulongs.c
index f8b8c9e..ac87933 100644
--- a/hbytes/ulongs.c
+++ b/hbytes/ulongs.c
@@ -290,6 +290,7 @@ static void ulong_t_free(Tcl_Obj *o) { }
 
 static void ulong_t_dup(Tcl_Obj *src, Tcl_Obj *dup) {
   dup->internalRep= src->internalRep;
+  dup->typePtr= &ulong_type;
 }
 
 static void ulong_t_ustr(Tcl_Obj *o) {