diff options
Diffstat (limited to 'ext/tk/tcltklib.c')
| -rw-r--r-- | ext/tk/tcltklib.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/tk/tcltklib.c b/ext/tk/tcltklib.c index f0f0b4a6db..312b0c05eb 100644 --- a/ext/tk/tcltklib.c +++ b/ext/tk/tcltklib.c @@ -1526,7 +1526,7 @@ call_original_exit(ptr, state) Tcl_Preserve((ClientData)argv); /* XXXXXXXX */ #endif #endif - argv[0] = "exit"; + argv[0] = (char *)"exit"; /* argv[1] = Tcl_GetString(state_obj); */ argv[1] = Tcl_GetStringFromObj(state_obj, (int*)NULL); argv[2] = (char *)NULL; |