casa-mp-base

 generic/tixGrSort.c | 4 ++--

 1 file changed, 2 insertions(+), 2 deletions(-)

​

diff --git a/generic/tixGrSort.c b/generic/tixGrSort.c

index 7dee30f..26ec054 100644

--- generic/tixGrSort.c

+++ generic/tixGrSort.c

@@ -447,8 +447,8 @@ SortCompareProc(first, second)

     * Parse the result of the command.

     */

-   order = strtol(sortInterp->result, &end, 0);

-   if ((end == sortInterp->result) || (*end != 0)) {

+   order = strtol(Tcl_GetStringResult(sortInterp), &end, 0);

+   if ((end == Tcl_GetStringResult(sortInterp)) || (*end != 0)) {

        Tcl_ResetResult(sortInterp);

        Tcl_AppendResult(sortInterp,

            "comparison command returned non-numeric result",