diff -Naur insight-6.8.orig/gdb/gdbtk/generic/gdbtk-stack.c insight-6.8.new/gdb/gdbtk/generic/gdbtk-stack.c
--- insight-6.8.orig/gdb/gdbtk/generic/gdbtk-stack.c	2008-03-07 09:03:19.000000000 +0100
+++ insight-6.8.new/gdb/gdbtk/generic/gdbtk-stack.c	2008-08-15 17:52:50.000000000 +0200
@@ -251,7 +251,9 @@
 gdb_get_args_command (ClientData clientData, Tcl_Interp *interp,
 		      int objc, Tcl_Obj *CONST objv[])
 {
-  return gdb_get_vars_command ((ClientData) 1, interp, objc, objv);
+  static const int one = 1;
+
+  return gdb_get_vars_command ((ClientData) &one, interp, objc, objv);
 }
 
 
@@ -259,7 +261,9 @@
 gdb_get_locals_command (ClientData clientData, Tcl_Interp *interp,
 			int objc, Tcl_Obj *CONST objv[])
 {
-  return gdb_get_vars_command ((ClientData) 0, interp, objc, objv);
+  static const int zero = 0;
+
+  return gdb_get_vars_command ((ClientData) &zero, interp, objc, objv);
 }
 
 /* This implements the tcl commands "gdb_get_locals" and "gdb_get_args"