--- ./gcl-tk/tkMain.c.orig 2013-07-11 09:28:16.000000000 -0600 +++ ./gcl-tk/tkMain.c 2013-08-26 15:06:24.547456318 -0600 @@ -121,7 +121,7 @@ static void TCL_signal_error(x) char *x; {char buf[300] ; - sprintf("error %s",x); + snprintf(buf,300,"error %s",x); Tcl_Eval(interp,buf); dfprintf(stderr,x); }