--- ./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);
}