This patch is needed for TclX8.0.2 in order to make
standalone executables with TclX work. It is supplied by
John Wehle <john@feith.com>, and will be included in TclX8.0.3

It should be applied" by running the \"patch\" program
in the top-level directory of a clean TclX 8.0.2 release, using
the command \"patch -p0 <TCLX802_REQUIRED_PATCHES\""

*** tcl/generic/tclXlib.c.orig   1997/11/11 05:33:16
--- tcl/generic/tclXlib.c   1997/12/31 04:18:43
***************
*** 12,18 ****
   * software for any purpose.  It is provided "as is" without express or
   * implied warranty.
   *-----------------------------------------------------------------------------
!  * $Id: tclXlib.c,v 8.19 1997/11/11 05:33:16 markd Exp $
   *-----------------------------------------------------------------------------
   */
  
--- 12,18 ----
   * software for any purpose.  It is provided "as is" without express or
   * implied warranty.
   *-----------------------------------------------------------------------------
!  * $Id: tclXlib.c,v 8.20 1997/12/31 04:18:43 markd Exp $
   *-----------------------------------------------------------------------------
   */
  
***************
*** 38,44 ****
  static char *AUTO_INDEX     = "auto_index";
  static char *AUTO_PKG_INDEX = "auto_pkg_index";
  static char *TCLX_LIBRARY   = "tclx_library";
! static char *AUTO_LOAD_FILE = "autoload.tcl";
  
  /*
   * Indicates the type of library index.
--- 38,58 ----
  static char *AUTO_INDEX     = "auto_index";
  static char *AUTO_PKG_INDEX = "auto_pkg_index";
  static char *TCLX_LIBRARY   = "tclx_library";
! 
! /*
!  * Command to pass to Tcl_GlobalEval to load the file autoload.tcl.
!  * This is a global rather than a local so it will work with K&R compilers.
!  * Its writable so it works with gcc.
!  */
! #ifdef HAVE_TCL_STANDALONE
! static char autoloadCmd [] =
! "if [catch {source -rsrc autoload}] {\n\
!     source [file join $tclx_library autoload.tcl]\n\
! }";
! #else
! static char autoloadCmd [] =
!     "source [file join $tclx_library autoload.tcl]";
! #endif
  
  /*
   * Indicates the type of library index.
***************
*** 958,982 ****
  TclX_LibraryInit (interp)
      Tcl_Interp *interp;
  {
-     Tcl_Obj *libDirObj;
-     Tcl_DString autoLoadSrc;
      int result;
  
!     /*
!      * Get path to autoload.tcl file that contains modified version of 
!      * the Tcl autoload proc and eval the file.
!      */
!     libDirObj = TclX_ObjGetVar2S (interp, TCLX_LIBRARY, NULL, 
!                                   TCL_GLOBAL_ONLY | TCL_LEAVE_ERR_MSG);
!     if (libDirObj == NULL) {
!         return TCL_ERROR;
!     }
!     Tcl_DStringInit (&autoLoadSrc);
!     TclX_JoinPath (Tcl_GetStringFromObj (libDirObj, NULL),
!                    AUTO_LOAD_FILE, &autoLoadSrc);
!     result = TclX_Eval (interp, TCLX_EVAL_GLOBAL|TCLX_EVAL_FILE,
!                         autoLoadSrc.string);
!     Tcl_DStringFree (&autoLoadSrc);
      if (result == TCL_ERROR) {
          return TCL_ERROR;
      }
--- 972,980 ----
  TclX_LibraryInit (interp)
      Tcl_Interp *interp;
  {
      int result;
  
!     result = TclX_Eval (interp, TCLX_EVAL_GLOBAL, autoloadCmd);
      if (result == TCL_ERROR) {
          return TCL_ERROR;
      }
