diff --git a/src/t_tkcmd.c b/src/t_tkcmd.c
index d96408027391e1da923deb52c2070dcba75d90cb..47ecbbaccaefbc426c0297a1abbc571b4dd723cf 100644
--- a/src/t_tkcmd.c
+++ b/src/t_tkcmd.c
@@ -582,6 +582,7 @@ void pdgui_doevalfile(Tcl_Interp *interp, char *s)
     if (Tcl_EvalFile(interp, buf) != TCL_OK)
     {
         char buf2[1000];
+		printf("error in file %s line %d: %s\n", buf, interp->errorLine, Tcl_GetStringResult(interp));
         sprintf(buf2, "puts [concat tcl: %s: can't open script]\n",
             buf);
         tcl_mess(buf2);