|
Lines 1-11
Link Here
|
| 1 |
--- interface/tk_c.c.orig 2011-12-03 15:49:19 UTC |
|
|
| 2 |
+++ interface/tk_c.c |
| 3 |
@@ -913,7 +913,7 @@ static char *v_eval(char *fmt, ...) |
| 4 |
vsnprintf(buf, sizeof(buf), fmt, ap); |
| 5 |
Tcl_Eval(my_interp, buf); |
| 6 |
va_end(ap); |
| 7 |
- return my_interp->result; |
| 8 |
+ return Tcl_GetStringResult(my_interp); |
| 9 |
} |
| 10 |
|
| 11 |
static const char *v_get2(const char *v1, const char *v2) |