*** generic/tkConsole.c.orig	Fri Jul 30 04:09:25 1999
--- generic/tkConsole.c	Sun Jan 16 17:43:03 2000
***************
*** 321,327 ****
  #ifdef MAC_TCL
      static char initCmd[] = "source -rsrc {Console}";
  #else
!     static char initCmd[] = "source $tk_library/console.tcl";
  #endif
      
      consoleInterp = Tcl_CreateInterp();
--- 321,327 ----
  #ifdef MAC_TCL
      static char initCmd[] = "source -rsrc {Console}";
  #else
!     static char initCmd[] = "if [catch {::wrap::source lib/tk$tk_version/console}] {source [file join $tk_library console.tcl]}";
  #endif
      
      consoleInterp = Tcl_CreateInterp();
