Attachment #1578 for bug #1716

View | Details | Raw Unified | Return to bug 1716
Collapse All | Expand All

Lines 239-245 Link Here

(-)R-1.5.1.orig/src/library/tcltk/src/tcltk.c (-1 / +1 lines)
239		239
240	PROTECT(ans = allocVector(STRSXP, count));	240	PROTECT(ans = allocVector(STRSXP, count));
241	for (i = 0 ; i < count ; i++)	241	for (i = 0 ; i < count ; i++)
242	SET_STRING_ELT(ans, i, mkChar(Tcl_GetString(elem[i])));	242	SET_STRING_ELT(ans, i, mkChar(Tcl_GetStringFromObj(elem[i], NULL)));
243	UNPROTECT(1);	243	UNPROTECT(1);
244	return ans;	244	return ans;
245	}	245	}

Return to bug 1716