@@ -1719,11 +1719,11 @@ tcl_ret = Tcl_Eval(interp, tcl); tcl_result = Tcl_GetStringResult(interp); if (tcl_ret != TCL_OK) { - fprintf(stderr, "[error] %s\n", tcl_result); + fprintf(stderr, "[error] %s\n", Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY)); return(1); } if (tcl_result && tcl_result[0] != '\0') {