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",