@@ -151,11 +151,11 @@
 	argc--;
 	argv++;
     }
     if (Tk_ParseArgv(interp, (Tk_Window) NULL, &argc, argv, argTable, 0)
 	    != TCL_OK) {
-	fprintf(stderr, "%s\n", interp->result);
+	fprintf(stderr, "%s\n", Tcl_GetStringResult(interp));
 	exit(1);
     }
     if (name == NULL) {
 	if (fileName != NULL) {
 	    p = fileName;
@@ -214,11 +214,11 @@
     strcpy(class, name);
     class[0] = toupper((unsigned char) class[0]);
     mainWindow = Tk_CreateMainWindow(interp, display, name, class);
     ckfree(class);
     if (mainWindow == NULL) {
-	fprintf(stderr, "%s\n", interp->result);
+	fprintf(stderr, "%s\n", Tcl_GetStringResult(interp));
 	exit(1);
     }
 
     /*
      * Set the "tcl_interactive" variable.
@@ -235,11 +235,11 @@
 
     if (geometry != NULL) {
 	Tcl_SetVar(interp, "geometry", geometry, TCL_GLOBAL_ONLY);
 	code = Tcl_VarEval(interp, "wm geometry . ", geometry, (char *) NULL);
 	if (code != TCL_OK) {
-	    fprintf(stderr, "%s\n", interp->result);
+	    fprintf(stderr, "%s\n", Tcl_GetStringResult(interp));
 	}
     }
 
     /*
      * Invoke application-specific initialization.
@@ -248,11 +248,11 @@
     if ((*appInitProc)(interp) != TCL_OK) {
        errChannel = Tcl_GetStdChannel(TCL_STDERR);
        if (errChannel) {
             Tcl_Write(errChannel,
                    "application-specific initialization failed: ", -1);
-            Tcl_Write(errChannel, interp->result, -1);
+            Tcl_Write(errChannel, Tcl_GetStringResult(interp), -1);
             Tcl_Write(errChannel, "\n", 1);
         }
 
 	goto error;
     }
@@ -282,11 +282,11 @@
 
             fullName = Tcl_TranslateFileName(interp, fileName, &buffer);
 	    if (fullName == NULL) {
                errChannel = Tcl_GetStdChannel(TCL_STDERR);
                if (errChannel) {
-                    Tcl_Write(errChannel, interp->result, -1);
+                    Tcl_Write(errChannel, Tcl_GetStringResult(interp), -1);
                     Tcl_Write(errChannel, "\n", 1);
                 }
 	    } else {
 
                 /*
@@ -297,11 +297,11 @@
                 if (chan != (Tcl_Channel) NULL) {
                     Tcl_Close(NULL, chan);
                     if (Tcl_EvalFile(interp, fullName) != TCL_OK) {
                        errChannel = Tcl_GetStdChannel(TCL_STDERR);
                        if (errChannel) {
-                            Tcl_Write(errChannel, interp->result, -1);
+                            Tcl_Write(errChannel, Tcl_GetStringResult(interp), -1);
                             Tcl_Write(errChannel, "\n", 1);
                         }
                     }
                 }
 	    }
@@ -437,20 +437,20 @@
 
     Tcl_CreateFileHandler(chan, 0, StdinProc, (ClientData) chan);
     code = Tcl_RecordAndEval(interp, cmd, TCL_EVAL_GLOBAL);
     Tcl_CreateChannelHandler(chan, TCL_READABLE, StdinProc, (ClientData) chan);
     Tcl_DStringFree(&command);
-    if (*interp->result != 0) {
+    if (*(Tcl_GetStringResult(interp)) != 0) {
 	if ((code != TCL_OK) || (tty)) {
 	    /*
 	     * The statement below used to call "printf", but that resulted
 	     * in core dumps under Solaris 2.3 if the result was very long.
 	     *
 	     * NOTE: This probably will not work under Windows either.
 	     */
 
-	    puts(interp->result);
+	    puts(Tcl_GetStringResult(interp));
 	}
     }
 
     /*
      * Output a prompt.
@@ -501,11 +501,11 @@
     } else {
 	code = Tcl_Eval(interp, promptCmd);
 	if (code != TCL_OK) {
 	    Tcl_AddErrorInfo(interp,
 		    "\n    (script that generates prompt)");
-	    fprintf(stderr, "%s\n", interp->result);
+	    fprintf(stderr, "%s\n", Tcl_GetStringResult(interp));
 	    goto defaultPrompt;
 	}
     }
     fflush(stdout);
 }