--- tkined/generic/tkiEditor.c	1999-04-21 17:07:10.000000000 +0300
+++ tkined/generic/tkiEditor.c	2009-01-07 12:08:00.000000000 +0200
@@ -846,6 +846,21 @@
       default:
 	Tcl_ResetResult (interp);
     }
+
+    /*
+       Comment from tclResult.c and respective change. Based on TCL changelog
+       this change has been there since 2004-11-23
+       - Cougar 20090107
+     */
+    /*
+     * Strictly we should call Tcl_GetStringResult(interp) here to make sure
+     * that interp->result is correct according to the old contract, but that
+     * makes the performance of much code (e.g. in Tk) absolutely awful. So we
+     * leave it out; code that really wants interp->result can just insert the
+     * calls to Tcl_GetStringResult() itself. [Patch 1041072 discussion]
+     */
+    (void) Tcl_GetStringResult(interp);
+
     if (*interp->result != '\0') {
 	Tcl_DStringAppend (dstp, interp->result, -1);
 	Tcl_DStringAppend (dstp, "\n", 1);