ulong improved; clock arithmetic hbytes abolished; secnet responder implemented and...

[chiark-tcl.git] / crypto / crypto.c

diff --git a/crypto/crypto.c b/crypto/crypto.c
index efddecd669885311eca67dc59991176a86a59814..457dc9e37f242178a55b13acea3732199b7d8546 100644 (file)
--- a/crypto/crypto.c
+++ b/crypto/crypto.c
@@ -102,6 +102,7 @@ static void key_t_dup(Tcl_Obj *src_obj, Tcl_Obj *dup_obj) {
   memcpy(dup->value, src->value, src->valuelen);
   noalg(dup);
   dup_obj->internalRep.otherValuePtr= dup;
+  dup_obj->typePtr= &blockcipherkey_type;
 }
 
 static void key_t_ustr(Tcl_Obj *o) {