ByteArray **byteArrayPtrPtr) 
{
    int length, proper = 1;
    unsigned char *dst;
    const char *src = TclGetStringFromObj(objPtr, &length);
    ByteArray *byteArrayPtr = Tcl_Alloc(BYTEARRAY_SIZE(length));
    const char *srcEnd = src + length;


    Tcl_UniChar ch = 0;

    for (dst = byteArrayPtr->bytes; src < srcEnd; ) {
	src += TclUtfToUniChar(src, &ch);
	if (ch > 255) {
	  proper = 0;
	  if (earlyOut) {
	    ckfree(byteArrayPtr);
	    *byteArrayPtrPtr = NULL;
	    return proper;