diff -up modules-3.2.10/cmdModule.c.tcl86 modules-3.2.10/cmdModule.c --- modules-3.2.10/cmdModule.c.tcl86 2012-11-01 16:02:19.000000000 -0600 +++ modules-3.2.10/cmdModule.c 2014-05-27 15:25:50.531554880 -0600 @@ -56,7 +56,11 @@ static void *UseId[] = { &UseId, Id }; /** MACROS **/ /** ************************************************************************ **/ -/** not applicable **/ +/** For Tcl < 8.6 compatibility **/ +#if (TCL_MAJOR_VERSION < 8) || (TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION < 6) +#define Tcl_GetErrorLine(interp) (interp->errorLine) +#define Tcl_SetErrorLine(interp,lineNum) (interp->errorLine = lineNum) +#endif /** ************************************************************************ **/ /** LOCAL DATA **/ @@ -640,8 +644,8 @@ int Execute_TclFile( Tcl_Interp *interp case TCL_OK: gotPartial = 0; continue; /** while **/ - case TCL_ERROR: interp->errorLine = ((linenum-1)-gotPartial) + - interp->errorLine; + case TCL_ERROR: Tcl_SetErrorLine(interp, ((linenum-1)-gotPartial) + + Tcl_GetErrorLine(interp)); /* FALLTHROUGH */ case TCL_LEVEL0_RETURN: