Diff

Differences From Artifact [cbe8db4a9d]:

To Artifact [276d2f6247]:


  1717   1717   		return(1);
  1718   1718   	}
  1719   1719   
  1720   1720   	tcl_ret = Tcl_Eval(interp, tcl);
  1721   1721   	tcl_result = Tcl_GetStringResult(interp);
  1722   1722   
  1723   1723   	if (tcl_ret != TCL_OK) {
  1724         -		fprintf(stderr, "[error] %s\n", tcl_result);
         1724  +		fprintf(stderr, "[error] %s\n", Tcl_GetVar(interp, "errorInfo", TCL_GLOBAL_ONLY));
  1725   1725   
  1726   1726   		return(1);
  1727   1727   	}
  1728   1728   
  1729   1729   	if (tcl_result && tcl_result[0] != '\0') {
  1730   1730   		printf("%s\n", tcl_result);
  1731   1731   	}