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