Fixed comments in code that referred to APIs that no longer exist, were misspelled, or have been updated.

25 files changed, 65 insertions, 62 deletions

diff --git a/generic/tcl.h b/generic/tcl.h
index 737d484..24155eb 100644
--- a/generic/tcl.h
+++ b/generic/tcl.h
@@ -12,7 +12,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tcl.h,v 1.1.2.22 1999/04/06 03:13:13 redman Exp $
+ * RCS: @(#) $Id: tcl.h,v 1.1.2.23 1999/04/14 00:33:19 surles Exp $
  */
 
 #ifndef _TCL
@@ -560,7 +560,7 @@ EXTERN int		Tcl_IsShared _ANSI_ARGS_((Tcl_Obj *objPtr));
 
 /*
  * Macros and definitions that help to debug the use of Tcl objects.
- * When TCL_MEM_DEBUG is defined, the Tcl_New* declarations are 
+ * When TCL_MEM_DEBUG is defined, the Tcl_New declarations are 
  * overridden to call debugging versions of the object creation procedures.
  */
 
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 9605e8b..090f435 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -12,7 +12,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclBasic.c,v 1.1.2.15 1999/04/06 00:43:16 redman Exp $
+ * RCS: @(#) $Id: tclBasic.c,v 1.1.2.16 1999/04/14 00:33:20 surles Exp $
  */
 
 #include "tclInt.h"
@@ -1537,7 +1537,7 @@ Tcl_CreateCommand(interp, cmdName, proc, clientData, deleteProc)
  *
  * Results:
  *	The return value is a token for the command, which can
- *	be used in future calls to Tcl_NameOfCommand.
+ *	be used in future calls to Tcl_GetCommandName.
  *
  * Side effects:
  *	If no command named "cmdName" already exists for interp, one is
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c
index c1af81e..5b3ab57 100644
--- a/generic/tclCmdAH.c
+++ b/generic/tclCmdAH.c
@@ -11,7 +11,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclCmdAH.c,v 1.1.2.11 1999/04/06 04:27:01 rjohnson Exp $
+ * RCS: @(#) $Id: tclCmdAH.c,v 1.1.2.12 1999/04/14 00:33:21 surles Exp $
  */
 
 #include "tclInt.h"
@@ -1236,7 +1236,7 @@ Tcl_FileObjCmd(dummy, interp, objc, objv)
  *
  * SplitPath --
  *
- *	Utility procedure used by Tcl_FileObjCommand() to split a path.
+ *	Utility procedure used by Tcl_FileObjCmd() to split a path.
  *	Differs from standard Tcl_SplitPath in its handling of home
  *	directories; Tcl_SplitPath preserves the "~" while this
  *	procedure computes the actual full path name.
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c
index 9461188..077bcf9 100644
--- a/generic/tclEncoding.c
+++ b/generic/tclEncoding.c
@@ -8,7 +8,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclEncoding.c,v 1.1.2.11 1999/04/06 04:27:02 rjohnson Exp $
+ * RCS: @(#) $Id: tclEncoding.c,v 1.1.2.12 1999/04/14 00:33:21 surles Exp $
  */
 
 #include "tclInt.h"
@@ -423,7 +423,7 @@ Tcl_GetEncoding(interp, name)
  * Tcl_FreeEncoding --
  *
  *	This procedure is called to release an encoding allocated by
- *	Tcl_CreateEncodingType() or Tcl_GetEncoding().
+ *	Tcl_CreateEncoding() or Tcl_GetEncoding().
  *
  * Results:
  *	None.
diff --git a/generic/tclEnv.c b/generic/tclEnv.c
index 89484c4..302c260 100644
--- a/generic/tclEnv.c
+++ b/generic/tclEnv.c
@@ -12,7 +12,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclEnv.c,v 1.1.2.6 1999/04/06 19:06:53 surles Exp $
+ * RCS: @(#) $Id: tclEnv.c,v 1.1.2.7 1999/04/14 00:33:22 surles Exp $
  */
 
 #include "tclInt.h"
@@ -63,7 +63,7 @@ void			TclUnsetEnv _ANSI_ARGS_((CONST char *name));
  *	The interpreter is added to a list of interpreters managed
  *	by us, so that its view of envariables can be kept consistent
  *	with the view in other interpreters.  If this is the first
- *	call to Tcl_SetupEnv, then additional initialization happens,
+ *	call to TclSetupEnv, then additional initialization happens,
  *	such as copying the environment to dynamically-allocated space
  *	for ease of management.
  *
diff --git a/generic/tclIO.c b/generic/tclIO.c
index 9974fe1..cb113a2 100644
--- a/generic/tclIO.c
+++ b/generic/tclIO.c
@@ -10,7 +10,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclIO.c,v 1.1.2.6 1999/02/01 21:29:52 stanton Exp $
+ * RCS: @(#) $Id: tclIO.c,v 1.1.2.7 1999/04/14 00:33:23 surles Exp $
  */
 
 #include "tclInt.h"
@@ -5881,7 +5881,8 @@ Tcl_DeleteChannelHandler(chan, proc, clientData)
 
     /*
      * Recompute the interest list for the channel, so that infinite loops
-     * will not result if Tcl_DeleteChanelHandler is called inside an event.
+     * will not result if Tcl_DeleteChannelHandler is called inside an
+     * event.
      */
 
     chanPtr->interestMask = 0;
diff --git a/generic/tclInt.h b/generic/tclInt.h
index c615d9d..e33d660 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -11,7 +11,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclInt.h,v 1.1.2.20 1999/04/06 19:06:53 surles Exp $
+ * RCS: @(#) $Id: tclInt.h,v 1.1.2.21 1999/04/14 00:33:23 surles Exp $
  */
 
 #ifndef _TCLINT
@@ -1240,7 +1240,7 @@ typedef struct Interp {
 				/* Linked list of name resolution schemes
 				 * added to this interpreter.  Schemes
 				 * are added/removed by calling
-				 * Tcl_AddInterpResolver and
+				 * Tcl_AddInterpResolvers and
 				 * Tcl_RemoveInterpResolver. */
     char *scriptFile;		/* NULL means there is no nested source
 				 * command active;  otherwise this points to
@@ -1323,7 +1323,7 @@ typedef struct Interp {
  *			installed, less priviledge than a regular interp).
  * USE_EVAL_DIRECT:	Non-zero means don't use the compiler or byte-code
  *			interpreter; instead, have Tcl_EvalObj call
- *			Tcl_EvalDirect.	 Used primarily for testing the
+ *			Tcl_EvalEx. Used primarily for testing the
  *			new parser.
  */
 
diff --git a/generic/tclLoad.c b/generic/tclLoad.c
index b2b3d18..8ce18c1 100644
--- a/generic/tclLoad.c
+++ b/generic/tclLoad.c
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclLoad.c,v 1.1.2.5 1999/04/03 01:35:19 welch Exp $
+ * RCS: @(#) $Id: tclLoad.c,v 1.1.2.6 1999/04/14 00:33:24 surles Exp $
  */
 
 #include "tclInt.h"
@@ -17,7 +17,7 @@
 /*
  * The following structure describes a package that has been loaded
  * either dynamically (with the "load" command) or statically (as
- * indicated by a call to Tcl_PackageLoaded).  All such packages
+ * indicated by a call to TclGetLoadedPackages).  All such packages
  * are linked together into a single list for the process.  Packages
  * are never unloaded, so these structures are never freed.
  */
diff --git a/generic/tclNotify.c b/generic/tclNotify.c
index 734f53c..3d7ec94 100644
--- a/generic/tclNotify.c
+++ b/generic/tclNotify.c
@@ -13,7 +13,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclNotify.c,v 1.1.2.8 1999/03/24 04:25:14 stanton Exp $
+ * RCS: @(#) $Id: tclNotify.c,v 1.1.2.9 1999/04/14 00:33:25 surles Exp $
  */
 
 #include "tclInt.h"
@@ -178,12 +178,12 @@ TclFinalizeNotifier()
  *	SetupProc and checkProc will be invoked each time that Tcl_DoOneEvent
  *	runs out of things to do.  SetupProc will be invoked before
  *	Tcl_DoOneEvent calls select or whatever else it uses to wait
- *	for events.  SetupProc typically calls functions like Tcl_WatchFile
- *	or Tcl_SetMaxBlockTime to indicate what to wait for.
+ *	for events.  SetupProc typically calls functions like
+ *	Tcl_SetMaxBlockTime to indicate what to wait for.
  *
  *	CheckProc is called after select or whatever operation was actually
  *	used to wait.  It figures out whether anything interesting actually
- *	happened (e.g. by calling Tcl_FileReady), and then calls
+ *	happened (e.g. by calling Tcl_AsyncReady), and then calls
  *	Tcl_QueueEvent to queue any events that are ready.
  *
  *	Each of these procedures is passed two arguments, e.g.
diff --git a/generic/tclObj.c b/generic/tclObj.c
index d088eaa..c1e9234 100644
--- a/generic/tclObj.c
+++ b/generic/tclObj.c
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclObj.c,v 1.1.2.7 1999/03/10 06:49:20 stanton Exp $
+ * RCS: @(#) $Id: tclObj.c,v 1.1.2.8 1999/04/14 00:33:25 surles Exp $
  */
 
 #include "tclInt.h"
@@ -24,7 +24,7 @@ static int typeTableInitialized = 0;    /* 0 means not yet initialized. */
 TCL_DECLARE_MUTEX(tableMutex)
 
 /*
- * Head of the list of free Tcl_Objs we maintain.
+ * Head of the list of free Tcl_Obj structs we maintain.
  */
 
 Tcl_Obj *tclFreeObjList = NULL;
@@ -237,7 +237,7 @@ Tcl_RegisterObjType(typePtr)
  *	This procedure appends onto the argument object the name of each
  *	object type as a list element. This includes the builtin object
  *	types (e.g. int, list) as well as those added using
- *	Tcl_CreateObjType. These names can be used, for example, with
+ *	Tcl_NewObj. These names can be used, for example, with
  *	Tcl_GetObjType to get pointers to the corresponding Tcl_ObjType
  *	structures.
  *
@@ -403,7 +403,8 @@ Tcl_NewObj()
     register Tcl_Obj *objPtr;
 
     /*
-     * Allocate the object using the list of free Tcl_Objs we maintain.
+     * Allocate the object using the list of free Tcl_Obj structs
+     * we maintain.
      */
 
     Tcl_MutexLock(&tclObjMutex);
@@ -465,7 +466,8 @@ Tcl_DbNewObj(file, line)
 
     /*
      * If debugging Tcl's memory usage, allocate the object using ckalloc.
-     * Otherwise, allocate it using the list of free Tcl_Objs we maintain.
+     * Otherwise, allocate it using the list of free Tcl_Obj structs we
+     * maintain.
      */
 
     objPtr = (Tcl_Obj *) Tcl_DbCkalloc(sizeof(Tcl_Obj), file, line);
@@ -587,7 +589,7 @@ TclFreeObj(objPtr)
     /*
      * If debugging Tcl's memory usage, deallocate the object using ckfree.
      * Otherwise, deallocate it by adding it onto the list of free
-     * Tcl_Objs we maintain.
+     * Tcl_Obj structs we maintain.
      */
 
     Tcl_MutexLock(&tclObjMutex);
diff --git a/generic/tclParse.c b/generic/tclParse.c
index 2064fb6..e5dc935 100644
--- a/generic/tclParse.c
+++ b/generic/tclParse.c
@@ -5,7 +5,7 @@
  *	do so in a general-purpose fashion that can be used for many
  *	different purposes, including compilation, direct execution,
  *	code analysis, etc.  This file also includes a few additional
- *	procedures such as Tcl_EvalObjv, Tcl_Eval, and Tcl_Eval2, which
+ *	procedures such as Tcl_EvalObjv, Tcl_Eval, and Tcl_EvalEx, which
  *	allow scripts to be evaluated directly, without compiling.
  *
  * Copyright (c) 1997 Sun Microsystems, Inc.
@@ -14,7 +14,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclParse.c,v 1.1.2.11 1999/04/01 21:56:14 stanton Exp $
+ * RCS: @(#) $Id: tclParse.c,v 1.1.2.12 1999/04/14 00:33:26 surles Exp $
  */
 
 #include "tclInt.h"
@@ -2078,8 +2078,8 @@ Tcl_ParseQuotedString(interp, string, numBytes, parsePtr, append, termPtr)
  *
  * CommandComplete --
  *
- *	This procedure is shared by Tcl_CommandComplete and
- *	Tcl_ObjCommandComplete; it does all the real work of seeing
+ *	This procedure is shared by TclCommandComplete and
+ *	Tcl_ObjCommandcoComplete; it does all the real work of seeing
  *	whether a script is complete
  *
  * Results:
diff --git a/generic/tclRegexp.c b/generic/tclRegexp.c
index 0be4915..208912f 100644
--- a/generic/tclRegexp.c
+++ b/generic/tclRegexp.c
@@ -10,7 +10,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclRegexp.c,v 1.1.2.8 1999/04/05 22:20:30 rjohnson Exp $
+ * RCS: @(#) $Id: tclRegexp.c,v 1.1.2.9 1999/04/14 00:33:26 surles Exp $
  */
 
 #include "tclInt.h"
@@ -311,7 +311,7 @@ TclRegExpExecUniChar(interp, re, wString, numChars, nmatches, flags)
     Tcl_RegExp re;		/* Compiled regular expression; returned by
 				 * a previous call to Tcl_GetRegExpFromObj */
     CONST Tcl_UniChar *wString;	/* String against which to match re. */
-    int numChars;		/* Length of string in Tcl_UniChars (must
+    int numChars;		/* Length of Tcl_UniChar string (must
 				 * be >= 0). */
     int nmatches;		/* How many subexpression matches (counting
 				 * the whole match as subexpression 0) are
diff --git a/generic/tclTest.c b/generic/tclTest.c
index 4bc8ea5..f112355 100644
--- a/generic/tclTest.c
+++ b/generic/tclTest.c
@@ -13,7 +13,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclTest.c,v 1.1.2.15 1999/04/05 22:20:31 rjohnson Exp $
+ * RCS: @(#) $Id: tclTest.c,v 1.1.2.16 1999/04/14 00:33:27 surles Exp $
  */
 
 #define TCL_TEST
@@ -2124,8 +2124,8 @@ TestMathFunc2(clientData, interp, args, resultPtr)
     ClientData clientData;		/* Integer value to return. */
     Tcl_Interp *interp;			/* Used to report errors. */
     Tcl_Value *args;			/* Points to an array of two
-					 * Tcl_Values for the two
-					 * arguments. */
+					 * Tcl_Value structs for the 
+					 * two arguments. */
     Tcl_Value *resultPtr;		/* Where to store the result. */
 {
     int result = TCL_OK;
diff --git a/generic/tclThread.c b/generic/tclThread.c
index 0d60dab..1ec3d0c 100644
--- a/generic/tclThread.c
+++ b/generic/tclThread.c
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclThread.c,v 1.1.2.7 1999/03/10 06:49:24 stanton Exp $
+ * RCS: @(#) $Id: tclThread.c,v 1.1.2.8 1999/04/14 00:33:27 surles Exp $
  */
 
 #include "tclInt.h"
@@ -142,7 +142,7 @@ TclThreadDataKeyGet(keyPtr)
  *	None.
  *
  * Side effects:
- *	The assigned value will be returned by Tcl_ThreadDataKeyGet.
+ *	The assigned value will be returned by TclpThreadDataKeyGet.
  *
  *----------------------------------------------------------------------
  */
diff --git a/generic/tclThreadTest.c b/generic/tclThreadTest.c
index 80c2b3e..f101b3b 100644
--- a/generic/tclThreadTest.c
+++ b/generic/tclThreadTest.c
@@ -11,7 +11,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclThreadTest.c,v 1.1.2.8 1999/04/03 01:35:19 welch Exp $
+ * RCS: @(#) $Id: tclThreadTest.c,v 1.1.2.9 1999/04/14 00:33:28 surles Exp $
  */
 
 #include "tclInt.h"
@@ -53,7 +53,7 @@ static struct ThreadSpecificData *threadList;
 /*
  * An instance of the following structure contains all information that is
  * passed into a new thread when the thread is created using either the
- * "thread create" Tcl command or the Tcl_ThreadCreate() C function.
+ * "thread create" Tcl command or the TclCreateThread() C function.
  */
 
 typedef struct ThreadCtrl {
diff --git a/mac/tclMacChan.c b/mac/tclMacChan.c
index 8424a26..b9c6eeb 100644
--- a/mac/tclMacChan.c
+++ b/mac/tclMacChan.c
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclMacChan.c,v 1.1.2.3 1999/03/10 06:49:24 stanton Exp $
+ * RCS: @(#) $Id: tclMacChan.c,v 1.1.2.4 1999/04/14 00:34:52 surles Exp $
  */
 
 #include "tclInt.h"
@@ -462,7 +462,7 @@ StdIOClose(
  *
  * CommonGetHandle --
  *
- *	Called from Tcl_GetChannelFile to retrieve OS handles from inside
+ *	Called from Tcl_GetChannelHandle to retrieve OS handles from inside
  *	a file based channel.
  *
  * Results:
diff --git a/mac/tclMacInit.c b/mac/tclMacInit.c
index 82c68f1..4f07a3b 100644
--- a/mac/tclMacInit.c
+++ b/mac/tclMacInit.c
@@ -8,7 +8,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclMacInit.c,v 1.1.2.4 1999/03/11 06:16:47 welch Exp $
+ * RCS: @(#) $Id: tclMacInit.c,v 1.1.2.5 1999/04/14 00:34:52 surles Exp $
  */
 
 #include <AppleEvents.h>
@@ -68,7 +68,7 @@ rename sourcePath {}";
 
 /*
  * The following structures are used to map the script/language codes of a 
- * font to the name that should be passed to Tcl_GetTextEncoding() to obtain
+ * font to the name that should be passed to Tcl_GetEncoding() to obtain
  * the encoding for that font.  The set of numeric constants is fixed and 
  * defined by Apple.
  */
@@ -224,7 +224,7 @@ GetFinderFont(int *finderID)
  *
  * Results:
  *	The return value is a string that specifies the font's encoding
- *	and that can be passed to Tcl_GetTextEncoding() to construct the
+ *	and that can be passed to Tcl_GetEncoding() to construct the
  *	encoding.  If the font's encoding could not be identified, NULL
  *	is returned.
  *
diff --git a/mac/tclMacResource.c b/mac/tclMacResource.c
index 033c8d0..7c654ac 100644
--- a/mac/tclMacResource.c
+++ b/mac/tclMacResource.c
@@ -11,7 +11,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclMacResource.c,v 1.1.2.3 1998/11/11 04:08:27 stanton Exp $
+ * RCS: @(#) $Id: tclMacResource.c,v 1.1.2.4 1999/04/14 00:34:52 surles Exp $
  */
 
 #include <Errors.h>
@@ -909,7 +909,7 @@ resourceRef? resourceType");
 
 	    return result;
 	default:
-	    panic("Tcl_GetIndexFromObject returned unrecognized option");
+	    panic("Tcl_GetIndexFromObj returned unrecognized option");
 	    return TCL_ERROR;	/* Should never be reached. */
     }
 }
diff --git a/mac/tclMacSock.c b/mac/tclMacSock.c
index 156c92a..5140e29 100644
--- a/mac/tclMacSock.c
+++ b/mac/tclMacSock.c
@@ -8,7 +8,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclMacSock.c,v 1.1.2.2 1998/09/24 23:59:18 stanton Exp $
+ * RCS: @(#) $Id: tclMacSock.c,v 1.1.2.3 1999/04/14 00:34:53 surles Exp $
  */
 
 #include "tclInt.h"
@@ -1125,7 +1125,7 @@ TcpInput(
  *
  * TcpGetHandle --
  *
- *	Called from Tcl_GetChannelFile to retrieve handles from inside
+ *	Called from Tcl_GetChannelHandle to retrieve handles from inside
  *	a file based channel.
  *
  * Results:
diff --git a/unix/tclUnixChan.c b/unix/tclUnixChan.c
index ef563d3..2150ffc 100644
--- a/unix/tclUnixChan.c
+++ b/unix/tclUnixChan.c
@@ -10,7 +10,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclUnixChan.c,v 1.1.2.4 1999/02/10 23:31:26 stanton Exp $
+ * RCS: @(#) $Id: tclUnixChan.c,v 1.1.2.5 1999/04/14 00:34:34 surles Exp $
  */
 
 #include	"tclInt.h"	/* Internal definitions for Tcl. */
@@ -555,7 +555,7 @@ FileWatchProc(instanceData, mask)
  *
  * FileGetHandleProc --
  *
- *	Called from Tcl_GetChannelFile to retrieve OS handles from
+ *	Called from Tcl_GetChannelHandle to retrieve OS handles from
  *	a file based channel.
  *
  * Results:
@@ -1892,7 +1892,7 @@ TcpWatchProc(instanceData, mask)
  *
  * TcpGetHandleProc --
  *
- *	Called from Tcl_GetChannelFile to retrieve OS handles from inside
+ *	Called from Tcl_GetChannelHandle to retrieve OS handles from inside
  *	a TCP socket based channel.
  *
  * Results:
diff --git a/win/tclWin32Dll.c b/win/tclWin32Dll.c
index 8894007..005586b 100644
--- a/win/tclWin32Dll.c
+++ b/win/tclWin32Dll.c
@@ -10,7 +10,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclWin32Dll.c,v 1.1.2.4 1999/03/09 01:31:30 lfb Exp $
+ * RCS: @(#) $Id: tclWin32Dll.c,v 1.1.2.5 1999/04/14 00:34:01 surles Exp $
  */
 
 #include "tclWinInt.h"
@@ -526,8 +526,8 @@ TclWinSetInterfaces(
  *	NULL to represent that encoding.
  *
  *	On NT, some strings exchanged between Tcl and the OS are "char"
- *	oriented, while others are in Unicode.  We need two Tcl_Encodings
- *	depending on whether we are targeting a "char" or Unicode
+ *	oriented, while others are in Unicode.  We need two Tcl_Encoding
+ *	APIs depending on whether we are targeting a "char" or Unicode
  *	interface.  
  *
  *	Calling Tcl_UtfToExternal() or Tcl_ExternalToUtf() with an
diff --git a/win/tclWinChan.c b/win/tclWinChan.c
index af36d74..4497b80 100644
--- a/win/tclWinChan.c
+++ b/win/tclWinChan.c
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclWinChan.c,v 1.1.2.7 1999/03/27 00:39:31 redman Exp $
+ * RCS: @(#) $Id: tclWinChan.c,v 1.1.2.8 1999/04/14 00:34:01 surles Exp $
  */
 
 #include "tclWinInt.h"
@@ -600,7 +600,7 @@ FileWatchProc(instanceData, mask)
  *
  * FileGetHandleProc --
  *
- *	Called from Tcl_GetChannelFile to retrieve OS handles from
+ *	Called from Tcl_GetChannelHandle to retrieve OS handles from
  *	a file based channel.
  *
  * Results:
diff --git a/win/tclWinPipe.c b/win/tclWinPipe.c
index ece0d6b..d632059 100644
--- a/win/tclWinPipe.c
+++ b/win/tclWinPipe.c
@@ -9,7 +9,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclWinPipe.c,v 1.1.2.10 1999/04/05 21:58:16 stanton Exp $
+ * RCS: @(#) $Id: tclWinPipe.c,v 1.1.2.11 1999/04/14 00:34:02 surles Exp $
  */
 
 #include "tclWinInt.h"
@@ -931,7 +931,7 @@ TclpCloseFile(
 	    break;
 
 	default:
-	    panic("Tcl_CloseFile: unexpected file type");
+	    panic("TclpCloseFile: unexpected file type");
     }
 
     ckfree((char *) filePtr);
diff --git a/win/tclWinSock.c b/win/tclWinSock.c
index 7244b10..a841072 100644
--- a/win/tclWinSock.c
+++ b/win/tclWinSock.c
@@ -8,7 +8,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclWinSock.c,v 1.1.2.9 1999/04/13 18:24:00 redman Exp $
+ * RCS: @(#) $Id: tclWinSock.c,v 1.1.2.10 1999/04/14 00:34:03 surles Exp $
  */
 
 #include "tclWinInt.h"
@@ -2011,7 +2011,7 @@ TcpWatchProc(instanceData, mask)
  *
  * TcpGetProc --
  *
- *	Called from Tcl_GetChannelFile to retrieve an OS handle from inside
+ *	Called from Tcl_GetChannelHandle to retrieve an OS handle from inside
  *	a TCP socket based channel.
  *
  * Results:
diff --git a/win/tclWinThrd.c b/win/tclWinThrd.c
index 2860fa7..ade458e 100644
--- a/win/tclWinThrd.c
+++ b/win/tclWinThrd.c
@@ -340,7 +340,7 @@ TclpMutexUnlock(mPtr)
  *
  *	This procedure is invoked to lock a mutex.  This is a self 
  *	initializing mutex that is automatically finalized during
- *	Tcl_Finalization.
+ *	Tcl_Finalize.
  *
  * Results:
  *	None.