message          1216 tclBasic.c     	buffer = (char *)ckalloc((unsigned) (length + strlen(message) + 1));
message          1218 tclBasic.c     	strcpy(buffer+length, message);
message          1222 tclBasic.c     	Tcl_SetVar(interp, "errorInfo", message, 1);