diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index f3f1eddd41..bce2e0d14c 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,9 @@
+start-sanitize-gdbtk
+Mon Aug 11 10:43:04 1997  Tom Tromey  <tromey@cygnus.com>
+
+	* gdbtk.c (gdbtk_init): Use ide_event_init_from_environment.
+
+end-sanitize-gdbtk
 Sun Aug 10 19:08:26 1997  Jeffrey A Law  (law@cygnus.com)
 
 	* utils.c (error): Fix return type for !ANSI_PROTOTYPES.
diff --git a/gdb/gdbtk.c b/gdb/gdbtk.c
index ae47ece320..0d558f5deb 100644
--- a/gdb/gdbtk.c
+++ b/gdb/gdbtk.c
@@ -1363,7 +1363,7 @@ gdbtk_init ( argv0 )
 
   IluTk_Init ();
 
-  h = ide_event_init_client (&errmsg, libexecdir);
+  h = ide_event_init_from_environment (&errmsg, libexecdir);
   if (h == NULL)
     {
       Tcl_AppendResult (interp, "can't initialize event system: ", errmsg,