1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclBinary.c b/generic/tclBinary.c
index 8c95305..d3b11d3 100644
--- a/generic/tclBinary.c
+++ b/generic/tclBinary.c
@@ -279,10 +279,10 @@ Tcl_SetByteArrayObj(
     byteArrayPtr = (ByteArray *) ckalloc(BYTEARRAY_SIZE(length));
     byteArrayPtr->used = length;
     byteArrayPtr->allocated = length;
-    if (length && bytes) {
+
+    if ((length != NULL) && (bytes > 0)) {
 	memcpy(byteArrayPtr->bytes, bytes, (size_t) length);
     }
-
     objPtr->typePtr = &tclByteArrayType;
     SET_BYTEARRAY(objPtr, byteArrayPtr);
 }