Index: tclLoadNone.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclLoadNone.c,v
retrieving revision 1.7
diff -c -r1.7 tclLoadNone.c
*** tclLoadNone.c	2002/01/09 19:09:28	1.7
--- tclLoadNone.c	2002/01/11 20:11:04
***************
*** 35,41 ****
   */
  
  int
! TclpLoadFile(interp, pathPtr, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr)
      Tcl_Interp *interp;		/* Used for error reporting. */
      Tcl_Obj *pathPtr;		/* Name of the file containing the desired
  				 * code. */
--- 35,41 ----
   */
  
  int
! TclpLoadFile(interp, pathPtr, sym1, sym2, proc1Ptr, proc2Ptr, clientDataPtr, unloadProcPtr)
      Tcl_Interp *interp;		/* Used for error reporting. */
      Tcl_Obj *pathPtr;		/* Name of the file containing the desired
  				 * code. */
***************
*** 47,52 ****
--- 47,53 ----
      ClientData *clientDataPtr;	/* Filled with token for dynamically loaded
  				 * file which will be passed back to 
  				 * TclpUnloadFile() to unload the file. */
+     Tcl_FSUnloadFileProc **unloadProcPtr;
  {
      Tcl_SetResult(interp,
  	    "dynamic loading is not currently available on this system",