more tcl8.6 breakage

diff --git a/tclpkg/tclpathplan/tclpathplan.c b/tclpkg/tclpathplan/tclpathplan.c
index 4eb41f18cd94906ebb4d5760f430487316d399dc..d55d3613ef040502c57fe82afea74b7d3ac7c628 100644 (file)
--- a/tclpkg/tclpathplan/tclpathplan.c
+++ b/tclpkg/tclpathplan/tclpathplan.c
@@ -54,6 +54,11 @@
 #define CONST84
 #endif
 
+#if ((TCL_MAJOR_VERSION == 8) && (TCL_MINOR_VERSION >= 6)) || ( TCL_MAJOR_VERSION > 8)
+#else
+#define Tcl_GetStringResult(interp) interp->result
+#endif
+
 typedef Ppoint_t point;
 
 typedef struct poly_s {
@@ -186,7 +191,7 @@ static void expandPercentsEval(Tcl_Interp * interp, /* interpreter context */
     }
     if (Tcl_GlobalEval(interp, Tcl_DStringValue(&scripts)) != TCL_OK)
        fprintf(stderr, "%s while in binding: %s\n\n",
-               interp->result, Tcl_DStringValue(&scripts));
+               Tcl_GetStringResult(interp), Tcl_DStringValue(&scripts));
     Tcl_DStringFree(&scripts);
 }