diff -Naurp insight-7.4.50.orig/gdb/gdbtk/library/main.tcl insight-7.4.50.new/gdb/gdbtk/library/main.tcl
--- insight-7.4.50.orig/gdb/gdbtk/library/main.tcl	2014-06-03 16:18:16.884096235 +0200
+++ insight-7.4.50.new/gdb/gdbtk/library/main.tcl	2014-06-03 18:34:38.776998950 +0200
@@ -62,7 +62,7 @@ if {[info exists auto_path]} {
 # Require the packages we need.  Most are loaded already, but this will catch 
 # any odd errors... :
 
-foreach p {{Tcl 8.4} {Tk 8.4} {Itcl 3.3} {Itk 3.3} {Iwidgets 4.0} {Gdbtk 1.0} {combobox 2.2} {debug 1.0}} {
+foreach p {{Tcl 8.6} {Tk 8.6} {Itcl 4.0} {Itk 4.0} {Iwidgets 4.0} {Gdbtk 1.0} {combobox 2.2} {debug 1.0}} {
   if {[catch {package require [lindex $p 0] [lindex $p 1]} msg]} {
     if {![info exists ::env(GDBTK_TEST_RUNNING)] || $::env(GDBTK_TEST_RUNNING) == 0} {
       if {$::tcl_platform(platform) != "windows"} {
diff -Naurp insight-7.4.50.orig/gdb/gdbtk/plugins/rhabout/rhabout.c insight-7.4.50.new/gdb/gdbtk/plugins/rhabout/rhabout.c
--- insight-7.4.50.orig/gdb/gdbtk/plugins/rhabout/rhabout.c	2004-12-08 21:21:08.000000000 +0100
+++ insight-7.4.50.new/gdb/gdbtk/plugins/rhabout/rhabout.c	2014-06-03 16:27:04.168609655 +0200
@@ -22,7 +22,8 @@ extra_text (ClientData clientData,
                 Tcl_Interp *interp,
                 int objc, Tcl_Obj *CONST objv[])
 {
-  interp->result = "\nThis is a sample plug-in\n";
+  Tcl_SetObjResult (interp,
+		Tcl_NewStringObj ("\nThis is a sample plug-in\n", -1));
   return TCL_OK;
 }