Index: rhabout.c
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/plugins/rhabout/rhabout.c,v
retrieving revision 1.2
diff -u -p -r1.2 rhabout.c
--- rhabout.c	8 Dec 2004 20:21:08 -0000	1.2
+++ rhabout.c	16 Feb 2013 17:03:35 -0000
@@ -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;
 }