Index: generic/gdbtk-cmds.c
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/generic/gdbtk-cmds.c,v
retrieving revision 1.121
diff -u -p -r1.121 gdbtk-cmds.c
--- generic/gdbtk-cmds.c	1 Aug 2011 22:08:20 -0000	1.121
+++ generic/gdbtk-cmds.c	11 Sep 2011 16:33:06 -0000
@@ -793,7 +793,7 @@ static int
 gdb_prompt_command (ClientData clientData, Tcl_Interp *interp,
 		    int objc, Tcl_Obj *CONST objv[])
 {
-  Tcl_SetStringObj (result_ptr->obj_ptr, get_prompt (0), -1);
+  Tcl_SetStringObj (result_ptr->obj_ptr, get_prompt (), -1);
   return TCL_OK;
 }