Index: tclTest.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclTest.c,v
retrieving revision 1.64
diff -r1.64 tclTest.c
3342c3342
< 	    char info[TCL_INTEGER_SPACE * 2];
---
> 	    char resinfo[TCL_INTEGER_SPACE * 2];
3346,3347c3346,3361
< 	    sprintf(info, "%d %d", start, end-1);
< 	    value = Tcl_SetVar(interp, varName, info, 0);
---
> 	    sprintf(resinfo, "%d %d", start, end-1);
> 	    value = Tcl_SetVar(interp, varName, resinfo, 0);
> 	    if (value == NULL) {
> 		Tcl_AppendResult(interp, "couldn't set variable \"",
> 			varName, "\"", (char *) NULL);
> 		return TCL_ERROR;
> 	    }
> 	} else if (cflags & TCL_REG_CANMATCH) {
> 	    char *varName;
> 	    CONST char *value;
> 	    char resinfo[TCL_INTEGER_SPACE * 2];
> 
> 	    Tcl_RegExpGetInfo(regExpr, &info);
> 	    varName = Tcl_GetString(objv[2]);
> 	    sprintf(resinfo, "%d", info.extendStart);
> 	    value = Tcl_SetVar(interp, varName, resinfo, 0);
3465a3480,3483
> 	    case 'c': {
> 		cflags |= TCL_REG_CANMATCH;
> 		break;
> 	    }
