--- blt2.5/generic/bltTreeCmd.c.ERROR_LINE 2015-10-03 18:43:14.589157453 +0300 +++ blt2.5/generic/bltTreeCmd.c 2015-10-03 18:43:33.865986441 +0300 @@ -8336,7 +8336,7 @@ if (result == TCL_CONTINUE ) continue; if (result == TCL_ERROR) { Tcl_AppendResult(interp, - "\n (\"tree foreach\" body line ", Blt_Itoa(interp->errorLine), ")\n", 0); + "\n (\"tree foreach\" body line ", Blt_Itoa(Tcl_GetErrorLine(interp)), ")\n", 0); break; } if (result != TCL_OK) {