1 --- src/tcl.c.org 2008-03-09 12:56:37.212570719 +0100
2 +++ src/tcl.c 2008-03-09 12:56:59.183621062 +0100
4 utftot += sizeof(char *) * objc;
6 for (i = 0; i < objc; i++) {
7 - byteptr = (char *) Tcl_GetByteArrayFromObj(objv[i], &len);
8 + byteptr = (char *) Tcl_GetStringFromObj(objv[i], &len);
9 strings[i] = (char *) nmalloc(len + 1);
11 strncpy(strings[i], byteptr, len);