Index: src/pl/tcl/pltcl.c
===================================================================
RCS file: /cvsroot/pgsql/src/pl/tcl/pltcl.c,v
retrieving revision 1.113
diff -c -c -r1.113 pltcl.c
*** src/pl/tcl/pltcl.c	21 Sep 2007 00:30:49 -0000	1.113
--- src/pl/tcl/pltcl.c	28 Sep 2007 21:02:55 -0000
***************
*** 178,184 ****
   * within Postgres, but we implement all the functions for completeness.
   * We can only fix this with Tcl >= 8.2, when Tcl_SetNotifier() appeared.
   */
! #if HAVE_TCL_VERSION(8,2)
  
  static ClientData
  pltcl_InitNotifier(void)
--- 178,184 ----
   * within Postgres, but we implement all the functions for completeness.
   * We can only fix this with Tcl >= 8.2, when Tcl_SetNotifier() appeared.
   */
! #if HAVE_TCL_VERSION(8,4)
  
  static ClientData
  pltcl_InitNotifier(void)
***************
*** 262,268 ****
  	Tcl_FindExecutable("");
  #endif
  
! #if HAVE_TCL_VERSION(8,2)
  	/*
  	 * Override the functions in the Notifier subsystem.  See comments above.
  	 */
--- 262,268 ----
  	Tcl_FindExecutable("");
  #endif
  
! #if HAVE_TCL_VERSION(8,4)
  	/*
  	 * Override the functions in the Notifier subsystem.  See comments above.
  	 */