From 442f4cfd687d3869bbaf7beb1431592c29934c33 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Thu, 12 Mar 2020 20:54:09 +0000
Subject: Minimal fix for crash bug.

---
 generic/tclBinary.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/generic/tclBinary.c b/generic/tclBinary.c
index f0fc866..f7fdd9f 100644
--- a/generic/tclBinary.c
+++ b/generic/tclBinary.c
@@ -535,6 +535,7 @@ Tcl_SetByteArrayLength(
 	SET_BYTEARRAY(irPtr, byteArrayPtr);
     }
     TclInvalidateStringRep(objPtr);
+    objPtr->typePtr = &properByteArrayType;
     byteArrayPtr->used = newLength;
     return byteArrayPtr->bytes;
 }
@@ -851,6 +852,7 @@ TclAppendBytesToByteArray(
     }
     byteArrayPtr->used += length;
     TclInvalidateStringRep(objPtr);
+    objPtr->typePtr = &properByteArrayType;
 }
 
 /*
-- 
cgit v0.12