--- examples/tk/xtk04.c.orig
+++ examples/tk/xtk04.c
@@ -35,7 +35,7 @@
         if ( pm->fdata[i] > max )
             max = pm->fdata[i];
 
-    sprintf( interp->result, "%f", max );
+    sprintf( Tcl_GetStringResult(interp), "%f", max );
     return TCL_OK;
 }
 
@@ -48,7 +48,7 @@
         if ( pm->fdata[i] < min )
             min = pm->fdata[i];
 
-    sprintf( interp->result, "%f", min );
+    sprintf( Tcl_GetStringResult(interp), "%f", min );
     return TCL_OK;
 }
 
@@ -80,7 +80,7 @@
 //
 // Results:
 //	Returns a standard Tcl completion code, and leaves an error
-//	message in interp->result if an error occurs.
+//	message in Tcl_GetStringResult(interp) if an error occurs.
 //
 // Side effects:
 //	Depends on the startup script.
@@ -158,7 +158,7 @@
 
     if ( pm->dim != 2 )
     {
-        interp->result = "must use 2-d matrix.";
+        Tcl_SetResult(interp,(char*)"must use 2-d matrix.",TCL_VOLATILE);
         return TCL_ERROR;
     }