1 files changed, 21 insertions, 0 deletions
diff --git a/dev-tcltk/tdom/files/tdom-0.8.3-tcl8.6.patch b/dev-tcltk/tdom/files/tdom-0.8.3-tcl8.6.patch
new file mode 100644
index 000000000000..5a805931ca31
--- /dev/null
+++ b/dev-tcltk/tdom/files/tdom-0.8.3-tcl8.6.patch
@@ -0,0 +1,21 @@
+ generic/tcldom.c | 5 +++++
+ 1 file changed, 5 insertions(+)
+
+diff --git a/generic/tcldom.c b/generic/tcldom.c
+index 91d98c9..0f024b3 100644
+--- a/generic/tcldom.c
++++ b/generic/tcldom.c
+@@ -5933,8 +5933,13 @@ int tcldom_EvalLocked (
+     ret = Tcl_EvalObj(interp, objv[2]);
+     if (ret == TCL_ERROR) {
+         char msg[64 + TCL_INTEGER_SPACE];
++    #if TCL_MAJOR_VERSION <=8 && TCL_MINOR_VERSION < 6
+         sprintf(msg, "\n    (\"%s %s\" body line %d)", Tcl_GetString(objv[0]),
+                 Tcl_GetString(objv[1]), interp->errorLine);
++    #else
++        sprintf(msg, "\n    (\"%s %s\" body line %d)", Tcl_GetString(objv[0]),
++                Tcl_GetString(objv[1]), Tcl_GetErrorLine(interp));
++    #endif
+         Tcl_AddErrorInfo(interp, msg);
+     }
+