gcl-format.patch

   1 --- gcl/gcl-tk/tkMain.c.orig    2013-11-11 15:55:48.000000000 +0100
   2 +++ gcl/gcl-tk/tkMain.c 2013-11-17 17:37:21.967828865 +0100
   3 @@ -121,7 +121,7 @@
   4  TCL_signal_error(x)
   5       char *x;
   6  {char buf[300] ;
   7 - sprintf("error %s",x);
   8 + sprintf(buf, "error %s",x);
   9   Tcl_Eval(interp,buf);
  10   dfprintf(stderr,x);
  11  }